#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<pre>\n";
print "Environment\n";
@keys = keys %ENV;
@values = values %ENV;
while (@keys) { 
    print pop(@keys), '=', pop(@values), "\n";
}
print "STDIN\n";
while(<>){
        print;
}
print "</pre>\n";