I said shell script ... not perl script ...
to make a perl script, would be more cool to use the 'chmod' perl function; but it didn't works for wildcarded paths like "/home/somewhere/*" ...

A little more work ... but yesterday, i was a little bit lazzy ...

Regards
turo