A Cgi print Environment Variables

#!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>";
}