#!/usr/bin/perl -w=head1 NAMEprintenv.pl - prints out as much info as it can find about the current http request=cut use strict;use Sys::Syslog;use CGI qw(:all);use Env;use strict; Env::import(); my %urec2; my $stat; my $item; my $value; my ( $key, $val); my @names; my $query; $query = new CGI; @names = $query->param;no strict 'subs'; print "Content-type: text/html\n\n";# @names = $CGI::Q->param; print "Starting Dump of CGI names:\n<BR>"; foreach $item (@names) { print "name item: $item;<BR>"; } print "Dump of cgi names complete.\n<BR>"; print "Starting Dump of command line:\n<BR>"; foreach $item (@ARGV){ print "$item;<BR>"; } print "Dump of command line complete.\n<BR>"; print "Dumping \$0:\n<BR>"; print "$0:\n<BR>"; print "Dump of \$0 complete.\n<BR>"; print "Starting Dump of Environment variables:\n<BR>"; while (($key, $val) = each %ENV) { print "$key = $val<BR>\n"; } print "Dump of Environment complete.\n<BR>"; print "Starting Dump of CGI NAME VALUE Pairs :\n<BR>"; foreach $item ( @names) { $value = $query->param("$item"); printf("%s=%s.\n<BR>",$item,$value); } print "Dump of pairs complete.\n<BR>";