sub read_form {

my $buffer;

if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }

elsif ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }

my @pairs = split(/&/, $buffer);

foreach my $pair(@pairs) {

    my ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;

    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    $name =~ tr/+/ /;

    $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	$name =~ s/(\.x)|(\.y)//; # schaltet XY-Koordinaten von Image-Buttons aus...

    # Mehrere Datenfelder gleichen Namens als Kommagetrennte Liste (z.B. fuer Checkboxen)

    if (defined $FM{$name}) { $FM{$name} = $FM{$name}.",".$value; }

    else { $FM{$name} = $value; }

}

}