Don't forget you can specify an array of starting directories:

find( \&Wanted, 1..9);
[download]

and then set $File::Find::prune=1 in Wanted() when you've gone as deep as you want into a directory.

--
TTTATCGGTCGTTATATAGATGTTTGCA