#!/usr/bin/perl 

use CGI;

$q = CGI->new();
print $q->header();

foreach $key (sort keys(%ENV)) {
      print "$key = $ENV{$key}<p>";
   }
 
1;