This answer doesnt use File::Find, but from a unix command prompt, you can issue:

   chmod -R 775 *
[download]

This will recursively chmod everything you have permission to change. So from Perl, you could do that as a system command.