#!/usr/bin/perl
print "Content-type: text/plain\n\n";
foreach $key (keys %ENV) {
    print "$key --> $ENV{$key}\n";
}