STDIN einlesen, leere Variable

[Struppi]

#!/usr/bin/perl --
use CGI;

Du bindest hier das Modul ein...

if($ENV{'REQUEST_METHOD'} eq 'GET') { $Daten = $ENV{'QUERY_STRING'} }
else { binmode STDIN;

bzw.: Einlesen im POST-mode, $Daten  bis Länge des Strings:

read STDIN, $Daten, $ENV{'CONTENT_LENGTH'};  } ;

Warum nutzt du es nicht?

Struppi.