Beware that giving 775 to a directory could allow members of the group owner to add and delete files into it! You don't seem to care, since you give full access to your files by the group owner (why?), but I think it's not advisable.

I'd better use find than File::Find, and do at least a:

find /home/directory -type f -print | xargs chmod 775
find /home/directory -type d -print | xargs chmod 755
[download]

This way group owner's people can still have full access to files, but, for example, can't add files in a directory of yours, which is preferrable IMHO

Ciao!
--bronto

---

The very nature of Perl to be like natural language--inconsistant and full of dwim and special cases--makes it impossible to know it all without simply memorizing the documentation (which is not complete or totally correct anyway).
--John M. Dlugosz