#!/usr/bin/perl

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

foreach my $key ( sort keys %ENV )
    {
    printf "%-25s %s\n", $key, $ENV{$key};
    }