#!/usr/bin/perl -T

print "Content-type: text/html\n\n";
print "<!doctype html public '-//w3c//dtd html 4.0 transitional//en'>\n";
print "<html>\n";
print "<head> </head>\n";
print "<body bgcolor='#FFFFFF'>\n";
while (($key, $val) = each %ENV) {
	print "$key = $val<BR>\n";
}
print "</body></html>\n";

