opendir DIR, $verzeichnis or die $!;
while( my $entry = readdir DIR ){
    if( -f $entry ){
        # durchsuche datei
    }
}
closedir DIR;