tr8000: CGI: POST-Übergabe funktioniert nicht!

Beitrag lesen

N' Abend!

Folgendes Script funktioniert bei mir nur mit der GET-Methode.
POST will einfach nicht.
Hab nach einem Tag ununterbrochenem "durchs www quälen" schon fast aufgegeben...

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $mycgi = new CGI;

print $mycgi->header(), $mycgi->start_html();

my $eingabe = undef;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
  read(STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
}
else {
  $eingabe = $ENV{'QUERY_STRING'};
}

if ($eingabe eq undef) {

print $mycgi->start_form({ -action => 'index.cgi',
                             -method => 'post',
                             -name   => 'namenformular' }),
        $mycgi->textfield({ -size => '40',
                            -name => 'name' }),
        $mycgi->submit({ -value => 'Go' }),
        $mycgi->end_form();
}

else {
  print $eingabe;
}

print $mycgi->end_html();

Im Voraus vielen Dank für eure Hilfe!
greez