#!/usr/bin/perl -w
use strict;
print "Content-type: text/html\n";
print "\n";
print "\n";
print "Environment Variables\n";
print "\n";
print "\n";
print "\n";
print " \n";
print " | Environmental Variable | \n";
print " Value | \n";
print "
\n";
foreach my $key (sort keys %ENV) {
print " \n";
print " | $key | \n";
print " $ENV{$key} \n";
print " |
\n";
}
print "
\n";
print "\n";