#!/usr/bin/perl -w
use strict;
use CGI;

my $q = CGI->new;
print $q->header;
while ( my ($k,$v) = each %ENV ) {
       print "$k = $v <br />\n";
}