Start with File::Find or File::Find::Rule, probably the latter.

If you wish to do it using find, this is not the place to ask. This is a Perl support site. It would be acceptable to ask in the ChatterBox, however. (You must be logged in to use the ChatterBox.)