opendir(DIR,$verzeichnis) or die $!;
while(my $filename = readdir DIR)) {
   my $file = $verzeichnis . '/' . $filename;
   next unless -f $file;
   # durchsuchen
}
closedir DIR;