There is a prune option to File::Find that should do what you want.

That's precisely what is being used.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.