#!/usr/local/bin/perl print "Content-type:text/html\n\n"; print <D'Tutor : Thai Web developer's resource !!! EndOfHTML ; foreach $key (keys(%ENV)) { print "$key = $ENV{$key}
\n"; } print "";