Fehler "script produced no output" bei Perl-Skripten im IIS4

[Calocybe]

Hi!

#!/usr/bin/perl
print "Content-type: text/plain\n\n";
print '@INC: ', join(' : ', @INC), "\n";
print "%ENV: \n";
print "$_:\t\t$ENV{$_}\n" for (sort keys %ENV); --> Hier tritt der Fehler auf.

Wenn ich bei diesem Skript die letzte Zeile auskommentiere. läuft es durch,
ansonsten kommt der anfangs beschriebene Fehler.

Nun, mit aelteren Perl-Interpretern laeuft das so tatsaechlich nicht. Wenn Du aber wirklich ActivePerl Build 522 hast, muesste es gehen. Wenn man es zu
for (sort keys %ENV) { print("$_:\t\t$ENV{$_}\n") }
umformt, geht es aber auch auf aelteren Perls.

Das hier bringt egal, was ich auch mache, immer den Fehler "Script produced no output"

Das war natuerlich nur ein Fragment, um zeigen wie es im Prinzip funktioniert. Ein ganzes Script wuerde so aussehen:

print "Content-type: text/plain\n\n";
$have_module = eval { require LWP::Simple };
print($have_module ? "Module is there." : "Can't find that fuckin' module!");

So lange