#!/bin/perl

print "Content-type:text/html\n\n";
for $var ( keys %ENV ) {
print "<br>$var = $ENV{$var}\n";
}