Hallo Jörk!

Ist aber so!

Dann kann ich ja beruhigt weitermachen.

#----------------------------------------------
use FileHandle;

my ($pipeOut, $pipeIn) = FileHandle::pipe();
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print $pipeIn $buffer x 10;  #je nachdem, wie oft man auslesen möchte - mehr schadet aber nicht
$pipeIn->close;

nun STDIN verbiegen

open STDIN, "<&=" . fileno $pipeOut;

hier hinter kann man nun STDIN 10 mal auslesen ...

#----------------------------------------------

Kann es sein, daß sich hier ein kleiner Fehler eingeschlichen hat?;-)
Wenn STDIN nur einmal ausgelesen werden kann, dann sollte es doch erst am Ende Deines Beispiels ausgelesen werden.

Hoffe das hilft erst mal weiter,

Das tut es. Danke!

Hansi