#!/usr/bin/perl
use strict;
print "Content-Type: text/html\n\n";
foreach my $key (keys %ENV){
print "$key=$ENV{$key}<br>";
}