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