my $query;
if ($ENV{REQUEST_METHOD} eq 'GET') {
    $query = $ENV{QUERY_STRING};
} elsif ($ENV{REQUEST_METHOD} eq 'POST') {
    read STDIN, $query, $ENV{CONTENT_LENGTH},0;
}
# make a hash from the query
my %param;
my @tupels = split /(\&|;)/,$query;
for my $tupel(@tupels) {
    my ($key,$value) = split /=/, $tupel;
    $param{$key} = $value;
}