#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<H2>Server Environment Values</H2>";
foreach $env_var (keys %ENV)  
{
     print "$env_var  =  $ENV{$env_var} <BR>";
}