#!/usr/bin/perl

use strict;
use warnings;

print "Content-type: text/plain\n\n";

my $varname;
foreach $varname (keys %ENV) {
    print "$varname = " . $ENV{$varname} . "\n";
}