#!/usr/bin/perl
use CGI ':all';
print header;
print "<pre>\n";
map { print "$_ $ENV{$_}\n" } sort keys %ENV;
print "</pre>\n";