#!/usr/local/bin/perl
#where's Wally converted to a cgi program

use CGI ':standard';

print header();

print start_html("results...");

$userName = param('txtName');
if (uc($userName) eq "WALLY"){
    print "I found you at last!!!\n";

} else {
    print "Sorry.  I was looking for Wally.\n";
} # end if