#!/usr/bin/perl # List all available environment variables print "Content-type: text/html\n\n"; print "

\n"; #foreach $key (keys(%ENV)) { # printf("%-10.10s: $ENV{$key}\n", $key); #}