#!/usr/bin/perl -w
use strict;
use CGI;

my %data = (
    'Aaron Anderson' => 'The webmaster, blah blah',
    'Someone Else' => 'Don\'t know',
    'Fred' => 'Flintstone!',
);

my $cgi = new CGI;
print $cgi->header;

if($cgi->param('name')) {
    print $data{$cgi->param('name')};
} else {
print <<"END";
<form method=post action="$ENV{SCRIPT_NAME}" target="_new">
Name: <input type=text name=name><br>
<input type=submit>
</form>
END
}