#!/usr/local/bin/perl -w use strict; use CGI; my($in) = new CGI; my($noun) = $in->param('noun'); if (not defined $noun or $noun eq '') { print <

Jon's artificial intelligence generator

(models the mind of a three year old human)


Enter a noun:
END } else { print <

What's a $noun?




END } exit();