print "Content-type: text/html\n\n"; print " Env \n"; while (my ($k, $v) = each %ENV) { print "\n"; } print "
$k = $v
";