# 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