#!/usr/bin/perl -X
print "Content-type: text/plain\n\n";
print "Server's environment\n";
foreach ( keys %ENV ) {
    print "$_\t$ENV{$_}<br>\n";
}
exit;