#!/usr/local/bin/perl
#hello: a simple Perl example
# TWO carriage returns after the content type.
# This is important to end the header!
print "Content-type: text/html\n\n";
use CGI qw(param);
# Output a proper HTML document, with and tags.
print "\n";
print "Form CGI Example\n";
print "\n";
print "\n";
my $aName= param("aName");
if ( $aName )
{
print "\n";
print "
Hello, ";
print "$aName\n";
print "
\n";
}
else
{
print "Please go back and enter your name.\n";
}
print "\n";
print 'Go Back.';
print "\n";
#print "\n";