print "Content-Type: text/html\n\n";
foreach (keys %ENV) { print "$ENV{$_} <BR>\n"; }