rubbos/app/httpd-2.0.64/docs/cgi-examples/printenv

   1 #!/usr/local/bin/perl
   2 ##
   3 ##  printenv -- demo CGI program which just prints its environment
   4 ##
   5
   6 print "Content-type: text/plain; charset=iso-8859-1\n\n";
   7 foreach $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