#!/usr/local/bin/perl


#HiWally in Perl
#Modified for cgi

#import the cgi library routines
require "cgi-lib.pl";

#call the routine to specify CGI output
print &PrintHeader;

print &HtmlTop("Hi Wally");

$userName = "";        #string for user's name

# get userName from form

&ReadParse(*input);
$userName = $input{"txtUserName"};

print "<center><h1>$userName</h1></center> \n";

if ($userName =~ m/wally/i){
    print("<font color = 'red' size = +8>");
    print("You PIG!!! <br> \n");
	print("</font> \n");
} else {
    if ( $userName =~ m/quit/i){
        print("<font color = 'green' size = +8>");
	print ("Goodbye! <br> \n");
	print("</font> \n");
    } else {
            print("<font color = 'blue' size = +8>");
	    print ("Do I know you $userName? <br> \n");
	print("</font> \n");
    } #end quit if
} # end wally if

print &HtmlBot;