#!/usr/local/bin/perl5 -I/usr/www/cgi use CGI; $query = new CGI; print $query->header; print "\n"; print "\n"; print "\n"; print "A madlib\n"; print "\n"; print "\n"; print "\n"; print "

Here it is:

\n"; print "\n"; print "One fine ",$query->param('day'),", ",$query->param('name1')," was reading\n"; print $query->param('newsgroup')," and noticed a post where ",$query->param('name2')," asked for\n\ "; print "help making their ",$query->param('noun')," ",$query->param('verb'),".

\n"; $text = $query->param('text'); $text =~ s/\n/
\n/g; print "The text comes here:
",$text,"

"; print "\n"; print "\n"; print "\n";