#!/usr/bin/perl print "Content-type: text/html\n\n"; print <<"TheEnd"; Environment Variables 
TheEnd
;
$post = ;
foreach (keys %ENV) {
        print "$_ = $ENV{$_}\n";
}
print <<"TheEnd";
STDIN Contains: $post
TheEnd ;