use CGI qw/:standard/;

my($self) = CGI::self_or_CGI();

print header(), 
      start_html('-title'   => "CGI Dump", 
                 '-BGCOLOR' => "white"),   
      h2("Query Parameters:"),
      CGI::as_string(),
      h2("Environment:"),
      (map { p("$_ => $ENV{$_}") } sort keys %ENV),
      end_html();