#!/usr/local/bin/perl print "Content-type:text/html\n\n"; print ""; foreach $key (keys ENV) { print "$key=$ENV{$key}
\n"; }