I finished a CGI script yesterday that did some fiddly things with various environment variables, and carried various settings in hidden form fields. It became a hassle to print out the various values of things from time to time, so in the end I just used the following snippet to dump (or not) the values of the environment and the CGI post parameters.

Just flip from 0 to 1 when you need to display the contents to figure out what's what.

---

merlyn is quite right. I have successfully reinvented the Dump method. Having played with both now, all I can say in my defense is that the output from this snippet is more compact.

# assuming my $q = new CGI;
0 and print $q->ul( $q->li( [ map { "env $_ => $ENV{$_}" } sort keys %
+ENV ] ));
1 and print $q->ul( $q->li( [ map { "param $_ => @{[$q->param($_)]}" }
+ sort $q->param() ] ));
2 and print $q->Dump; # RTFM
[download]