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