Und so klappts ...

[Marcus Vieß]

#!/usr/bin/perl

$reviewspath = "../../ab18/reviews/";
$numoffiles = 0;
print "Content-type: text/html\n\n";
while ($filename=<$reviewspath*.num>) {
$numoffiles++;
}
print "$numoffiles";

und so klappts !!!

hehe, ist doch immer schön wenn man 2 Std. sucht, ins Forum postet und dann aufeinmal kommt die Lösung ...