#!/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 <Thank you, $name!

$name, I want to personally thank you for making world peace possible!

$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!

ENDOFPAGE # That ENDOFPAGE must be on its own line!