my $stop_the_insanity = 0;
sub wanted {
   return if $stop_the_insanity;
   ...
   # some condition that sets $stop_the_insanity
   ... 
}

find(\&wanted, @paths);