#!/usr/bin/perl # $Id: printenv.pl,v 1.1 2004/04/13 04:15:36 morpheus Exp $ # printenv.pl -- demo perl program that prints out environment variables. print "Content-type: text/plain\n\n"; foreach $var (sort(keys(%ENV))) { $val = $ENV{$var}; $val =~ s|\n|\\n|g; $val =~ s|"|\\"|g; print "${var}=\"${val}\"\n"; }