#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<html>\n<head>\n</head><body><table border=1>";
foreach(keys %ENV) { print "<tr><td>$_</td><td>$ENV{$_}</td></tr>\n"; }
print "</table>\n";
print "</body></html>\n";

