#! /usr/bin/perl
print "Content-type: text/html\n\n";
while (($i,$val) = each %ENV) { print "$i=$val <hr>\n" }