#! /usr/bin/perl
use warnings;
use strict;
use CGI; # das modul CGI laden
# fehler/warnungen im browser ausgeben
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
my $cgi = CGI->new(); # neues CGI-Objekt erzeugen
my %params = $cgi->Vars(); # CGI-Parameter in einen Hash einlesen
print $cgi->header(); # standardmaesig: text/html
print $cgi->start_html(-title => 'testseite'); # ...
# aber auch html kann direkt ausgegeben werden, z.B.
foreach my $param (keys %params) {
print "$param => $params{$param}
\n";
} # foreach
print $cgi->end_html();