in reply to
File::Find limited recursion
File::Find::Rule
has maxdepth and mindepth methods/parameters which do that (though they are really just shortcuts to File::Spec->splitdir and maxdepth uses $File::Find::prune).
Comment on
Re: File::Find limited recursion
In Section
Cool Uses for Perl