#! /usr/bin/perl
use warnings;
use strict;

use CGI;

# gibt fast alle fehler und alle warnungen im browser aus, das
# hilft beim entwickeln. wenn ein script in produktion genommen 
# wird, dann besser die folgende Zeile auskommentieren
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $cgi = CGI->new(); # neues CGI-Objekt erzeugen

print $cgi->header('text/html'), $cgi->start_html('Testseite');

my %params = $cgi->Vars;

print $cgi->h1('CGI-Parameter');

foreach my $key (sort keys %params) {
  print $cgi->p("$key => " . escapeHTML($params{$key}));
} # foreach

print $cgi->end_html();