#!/usr/bin/perl
 print "Content-type:text/html\n\n";
 print "$_ = $ENV{$_}<BR>\n" foreach (sort(keys(%ENV)));