1#!/usr/local/bin/perl 2## 3## printenv -- demo CGI program which just prints its environment 4## 5 6print "Content-type: text/plain; charset=iso-8859-1\n\n"; 7foreach $var (sort(keys(%ENV))) { 8 $val = $ENV{$var}; 9 $val =~ s|\n|\\n|g; 10 $val =~ s|"|\\"|g; 11 print "${var}=\"${val}\"\n"; 12} 13 14