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

    Source: geocities.com/robinchatterjee