#!/usr/bin/perl -w
use CGI::Debug;
use strict;
print "Content-type: text/html\n\n";
print "Enviroment\n";
print "Enviroment
\n\n";
print "\n";
foreach my $key ( keys %ENV )
{
my $val = $ENV{ $key } || "";
print( "- $key = $val\n" );
}
print "
\n";
print "\n";