#!/usr/bin/perl use strict; use warnings; use CGI; my $q = CGI->new; print $q->header; print ""; foreach my $k (sort keys %ENV){ print "$k : $ENV{$k}
"; } print "";