my $wanted = sub {
    if($File::Find::dir ne 'kaputtes dir') {
        ...ablauf...
    }
}