#!/usr/bin/perl
print "Content-type:text/html\n\n";
print <<EndOfHTML;
<html><head><title>Print Environment</title></head>
<body>
<style>
body,td,tr {
font-size:11;
font-family: Verdana;
}
</style>
<table border=1>
<tr><Td colspan=2><B>Standaart CGI Variables</td></tr>
EndOfHTML
foreach $key (sort(keys %ENV)) {
print "<tr><td><B>$key</b></td><td> $ENV{$key}</td></tr>\n";
}
print "<tr><td colspan=2><b><a href='http://jacob.slompinfo.nl'>http://jacob.slompinfo.nl</a></b></td></tr>";
print "</table></body></html>";