#!/usr/bin/perl
#########
#
# in class demo of a CGI script.
#
#######
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
my $word = param('George');
my $htmlAboutWord = "";
if ($word){
$htmlAboutWord = "You typed '$word'.";
}
print "Content-type: text/html\n\n";
print qq{
Hi.
SAMPLE HTML FORM
$htmlAboutWord
};