#! /usr/bin/perl -s #! /usr/bin/perl -P #! /usr/bin/perl -D4096 # print "content-type: text/html\n"; print "\n"; print "
$0
\n"; print "\n"; print "Hello world\n\n"; printf "PATH=%s\n
", $ENV{"PATH"}; foreach $key (keys(%ENV)) { print"$key = $ENV{$key}
\n"; } print "\n"; exit 0;