#!/usr/bin/perl --
##
##  printenv -- demo CGI program which just prints its environment
##


print "Content-type: text/plain; charset=iso-8859-1\n\n";


if( $ENV{QUERY_STRING} ){
    $ENV{OneTimeEnvTestWillItPersistProbablyNot}=1;
    print "so did OneTimeEnvTestWillItPersistProbablyNot persist? thought not\n\n\n";
} else {
    print "set OneTimeEnvTestWillItPersistProbablyNot=1\n";
    print "now append ?foo to the url to see if OneTimeEnvTestWillItPersistProbablyNot persists \n\n\n";
}

foreach $var (sort(keys(%ENV))) {
    $val = $ENV{$var};
    $val =~ s|\n|\\n|g;
    $val =~ s|"|\\"|g;
    print "${var}=\"${val}\"\n";
}