#!/usr/bin/perl -w

print "Content-type: text/html\n\n";

foreach my $key (sort keys %ENV) {
print "\$ENV{$key} = $ENV{$key}<br/>\n";
}

exit;