#!/usr/bin/perl use CGI qw(:standard :cgi-lib); print header; print ""; foreach my $name (keys %ENV) { print "$name $ENV{$name}
"; } print "";