does anyone know how to exit the Find routine without exiting the program, I'm thinking about eval, but I'm not so sure how it will work with my sub-routine.

Have die "Stop\n" in your "wanted" routine, and eval the find call:

eval { find(...) };
die $@ if $@ and $@ ne "Stop\n";
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.