#!/usr/bin/perl -w
######################################################################
# (c) Michael Schilli 1999
######################################################################

use CGI qw/:standard/;
###############################################################    
print header(),                            # CGI-Header
                                           # Startsequenz 
      start_html('-title'   => "CGI Dump", #   und Titel
                 '-bgcolor' => "white"),   # Hintergrundfarbe
      h2("Query Parameters:"),             # H2-Überschrift
      CGI::as_string(),           # CGI-Parameter formatiert
      h2("Environment:"),         # H2-Überschrift
                                  # Environment ausgeben
      (map { p("$_ => $ENV{$_}") } sort keys %ENV),
      end_html();                 # Abschluß