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