Request Content abgreifen

[MrWurf]

Mehr als

komisch nur, das mein Script bei der entscheidenden Zeile einfach »» stehen bleibt:
read(STDIN, my $daten, $ENV{'HTTP_CONTENT_LENGTH'});

kann ich leider auch nicht sagen. Ich habe den Eindruck, dass er vergeblich wartet, das was über den Filehandle reinkommt.
Habs auch schon mit
read(STDIN, $daten, 1);
probiert, falls die Contentlänge zu groß angegeben wird .. gleiches Ergebnis.

Bevor du danach fragst - hier das ganze Script:
use CGI qw(:standard);
my $query = new CGI;

print STDOUT $query->header('text/plain');

print "was geht\n\n";

my @headerkeys = $query->http();
foreach $headerkey(@headerkeys)
{
 my $headervalue = $query->http($headerkey);
 print STDOUT "Header key: $headerkey value: $headervalue\n";
}
my $daten = "Daten: \n";

read(STDIN, $daten, $ENV{'HTTP_CONTENT_LENGTH'});

print STDOUT "\nFormtest\n---------\n";
$query->save(STDOUT);

Gruß
MrWurf