#!/usr/bin/perl print "Content-type: text/html\n\n"; print "perl test

perl test

\n"; print "arg= @ARGV
"; print "QUERY_STRING= $ENV{'QUERY_STRING'}
"; print "Environment =", %ENV, "
"; print "foreach:

"; foreach $e (%ENV) { print "$e
"; } print "


enhanced foreach:

"; $ct = 0; foreach $n (%ENV) { $ct++; if (int($ct / 2) eq $ct / 2) { print "$n
\n"; } else { print "$n = "; } } print "


test individual:

"; print "SERVER_NAME= $ENV{'SERVER_NAME'}

"; print "In other words, you are using the server $ENV{'SERVER_NAME'}

"; print "\n\n";