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