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