#!/usr/bin/perl
use CGI;
my $q = new CGI;
print $q->header; # HTTP header
# Note: the $name and 'name' equivalence is arbitrary.
my $name = $q->param('name') || "Anonymous";
print <<ENDOFPAGE;
<html><head><title>Thank you, $name!</title></head><body>
<p>$name, I want to personally thank you for making world
peace possible!</p>
<p>$name, if you print this page, and glue it onto your
forehead, you'll never need to pay for anything again!
You'll even get a free shirt with long sleeves and a ride to
a big building where they'll put you in a comfy room with
padded walls!</p>
</body></html>
ENDOFPAGE
# That ENDOFPAGE must be on its own line!
|