use CGI qw/:all/;
my $query = new CGI;
my $params = $query->Vars;
print "Content-type: text/plain\n\n";
print "hier sind die formulardaten:\n";
for my $key (keys %$params)
{
print "$key = $$params{$key}\n";
}