#!/usr/bin/perl print "Content-type: text/html\n\n"; print "<H2>Server Environment Values</H2>"; foreach $env_var (keys %ENV) { print "$env_var = $ENV{$env_var} <BR>"; }