#!/usr/bin/perl -w
use strict;
use warnings;
require 5.8.0;
use CGI;
use Data::Dumper;
use Fcntl qw (:DEFAULT :flock);
my $q = CGI -> new;
print $q -> header . 'Hallo!';
print '<pre>';
foreach my $var ($q->param) {
	print "$var => " . $q->param($var) . "\n";
}
print '</pre>';