from a book I have:

#!/usr/bin/perl5

print "Context-type: text/plain\n\n";

while ( ($key,$value) = each %ENV )
{
    print "[$key]\t[$value]\n";
}

exit 0;
[download]