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