#!/usr/bin/perl require "cgi-start.pl"; MAIN: { &ReadParse(*input); print "Content-type: text/html\n\n"; print &HtmlTop("Hello World"); print "Here are the results:\n"; if(&MethGet){ print "Method is GET\n"; } if(&MethPost){ print "Method is POST\n"; } print "
";
     print `env`; 
     print "
"; ($text = $input{'text'}) =~ s/\n/\n
/g; # add
's after carriage returns # to multline input, since HTML does not # preserve line breaks print "$text\n"; print &HtmlBot; }