#!/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 "<pre>";
     print `env`; 
     print "</pre>";

 #assume 'text' is the name of a name=???? assignment of an input element
     ($text = $input{'text'}) =~ s/\n/\n<BR>/g;
			 # add <BR>'s after carriage returns
                         # to multline input, since HTML does not
                         # preserve line breaks  

     print "$text\n";
     print &HtmlBot;

}
