print "Content-Type:text/plain\n\n";
foreach $key (keys %ENV) 
{
print "$key $ENV{$key}\n";
}

    Source: geocities.com/siliconvalley/park/8312

               ( geocities.com/siliconvalley/park)                   ( geocities.com/siliconvalley)