Datein in Dirs zählen

[Marcus Vieß]

Mhh irgendwie zählt er nicht die *.cgi Dateien.
Kann mir mal einer helfen, kann eigentlich nur noch ne Kleinigkeit sein oder ?

#!/usr/bin/perl
$numoffiles = 0;
print 'Content-type: text/html\n\n';

foreach $file(@allfiles) {

if ($file =~ '.*.cgi') {
$numoffiles++;
}

}

print '$numoffiles';