#!/usr/local/bin/perl print "Content-type: text/html\n\n"; print " Enviroment Variables \n"; print "\n"; print <<"EOF";
EOF foreach $var (sort keys(%ENV)) { print ""; } print <<"EOF"

Enviroment Variable

Contents

$var $ENV{$var}
EOF