if($ENV{'REQUEST_METHOD'} eq 'GET')
 { $eingabe = $ENV{'QUERY_STRING'}; }
else
 { read(STDIN, $eingabe, $ENV{'CONTENT_LENGTH'}); }
@paare = split(/&/, $eingabe);
foreach $paar (@paare)
{
  ($schluessel, $wert) = split(/=/, $paar);
  $wert =~ tr/+/ /;
  $wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",    hex($1))/eg;
  $wert =~ s/<([^>]|\n)*>//g;
  $FORM{$schluessel} = $wert;
}