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).