See 'man File::Find' and perlsec. It would be a good idea to get a more experienced programmer to review the result.

After Compline,
Zaxo