#!c:/Perl/bin/Perl.exe
use CGI; $q = new CGI; print $q->header; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|/n|//n|g; $val =~ s|"|//"|g; print "${var}=/"${val}/"/n"; print "<br>"; }
#!c:/Perl/bin/Perl.exe
use CGI; $q = new CGI; print $q->header; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|/n|//n|g; $val =~ s|"|//"|g; print "${var}=/"${val}/"/n"; print "<br>"; }