#!C:/perl/bin/perl print "Content-type: text/html\n\n"; print ""; print "ENV\n"; print ""; while (($key, $val) = each %ENV) { print "$key = $val
"; } print "
\n"; print "";