#!/usr/local/bin/perl print "Content-type:text/html\n\n", "\n"; map{ print "\n"; }keys(%ENV); print "
$_". $ENV{$_}. "
\n"; exit;