#!/perl/bin/perl -wT##  printenv -- demo CGI program which just prints its environmentBEGIN {    $|=1;    print "Content-type: text/html\n\n";
    use CGI::Carp('fatalsToBrowser');
    print "$!";
}
#open 
(FILE, ">>C:/info.txt");
foreach $var (sort(keys(%ENV))) {    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~     s|"|\\"|g;
    print "${var}=\"${val}\"\n";
}
close FILE;