Listing of testpage.cgi

#!/usr/bin/perl -w

$hr = '<hr>';

print <<EOF;
Content-type: text/html

<HTML>

<HEAD>
   <TITLE>CGI environment test</TITLE>
   <LINK REV="0.1" HREF="mailto:mjfrazer\@dictator.uwaterloo.ca">
</HEAD>

<BODY>
<h1>CGI environment test</h1>

Here is the environment provided to a cgi script by my server and your browser.
$hr

Here's your whole environment: <br>
EOF
while(($key,$value) = each %ENV) {
    print "$key = $value <br>\n";
}

print <<EOF2;

<hr>
<address>
    <a href="http://www.pads.uwaterloo.ca/~mjfrazer/copyright.html">Copyright
    &#169; 1996</a> by
    <a href="http://www.pads.uwaterloo.ca/~mjfrazer/signature.html">Mark
    Frazer</a>,
    <a href="mailto:MJFrazer\@UWaterloo.Ca">MJFrazer\@UWaterloo.Ca</a><br>
</address>
</BODY>
</HTML>
EOF2

__END__
frickin' computers Mark Frazer -- mjfrazer@gmail.com frickin' computers