use File::Spec;
opendir DIR, $verzeichnis or die $!;
while( my $entry = readdir DIR ){
    my $filenameWithPath = File::Spec->catfile( $verzeichnis, $entry );
    if( -f $filenameWithPath ){
        # durchsuche datei
    }
}
closedir DIR;