while ( my $file = readdir $dh ) {
    eval {
        open my $fh, '<', $file  or  die $!;
        ### tue etwas mit der datei
        close $fh  or  die $!;
    };
    if ( $@ ) {
        warn "Fehler bei Bearbeitung der Datei $file: $!\n";
    }
}