#!/usr/bin/perl -w

use CGI;

my $q = CGI->new();

$q->header( 'text/plain' );

while (my ($key, $value) = each %ENV)
{
    print "$key => $value\n";
}