#!/usr/bin/perl -w

use CGI qw/:standard/;
    
print header(),                            # CGI- header
      start_html('-title'   => "CGI Dump", # start sequence and title
                 '-bgcolor' => "white"),   # background color
      h2("Query Parameters:"),             # H2 headline
      CGI::as_string(),                    # CGI parameters formatted
      h2("Environment:"),                  # H2 headline
                                           # output environment
      (map { p("$_ => $ENV{$_}") } sort keys %ENV),
      end_html();                          # termination