Printenv Script

#!/usr/bin/perl # 20080322 - rem /local/ .. -wT and use diagnostics; use strict; #use diagnostics; $|++; print "Content-Type: text/html\n\n"; print "Printenv Script\n"; print "\n"; print map { "

$_ = $ENV{$_}

\n" } sort keys %ENV; print "\n";