#!/usr/bin/perl print "Content-type: text/html\n\n"; print ""; foreach $key (keys %ENV) { print "$key --> $ENV{$key}
"}; print ""; print "\n\n";