#!/usr/bin/perl

print "Content-Type: text/html\n\n";
foreach my $key (sort keys %ENV) {
    print "$key = $ENV{$key}\n";
}