PERL ---» "GET" verbieten und nur "POST" erlauben?

[Thomas Haxmer]

Hi Thomas

Ist es möglich die "GET" - Methode zu verbieten und nur die "POST" zulassen?
Bitte um einen kleine Source-Code. Wäre dies möglich?:
Natürlich geht das:

print "Content-type: text/html\n\n";
  if ($ENV{'REQUEST_METHOD'} eq "POST") {
    read(STDIN, $input, $ENV{'CONTENT_LENGTH'});
  }
  else {
    print "uncorrect request method!\n";
  }

Gruss, Beat

Dankeschön!

MfG Thomas