opendir(DIR,$verzeichnis) or die $!;
my @files = grep{-f $verzeichnis.'/'.$_}readdir(DIR);
closedir DIR;

for my $file(@files){
  # durchsuchen
}