1 2 3 4 5 6 7 8 9 10 11
#!/usr/bin/perl binmode(STDOUT); binmode(STDIN); print "Content-Type: text/plain\r\n"; print "\r\n"; foreach $key (sort (keys (%ENV))) { print "$key=$ENV{$key}\n"; }