#!/usr/bin/perl -w use strict; print "Content-type: text/html\n\n"; print "Enviroment\n"; print "

Enviroment

\n\n"; print "
    \n"; foreach my $key ( keys %ENV ) { print( "
  1. ", $key, " = ", $ENV{ $key }, "\n" ); } print "
\n"; print "\n";