if ($ENV{"REQUEST_METHODE"} eq "POST")
  {
read(STDIN, $daten, $ENV{"CONTENT_LENGTH"});
  } else {
         $daten = $ENV{"QUERY_STRING"};
         }
         @paare = split("&", $daten);
         foreach $paar (@paare)
                  {
                  $paar =~ tr/+/ /;
                  $paar =~ s/%(..)/pack("C", hex($1))/eg;
                  ($name, $wert) = split("=", $paar);
                  $FORM{$name} = $wert;
                  }