High Speed Recursive Linux Permission Changer

I wrote this a while back to help aid my needs, I am posting it in case you may find it helpful.

It is fairly easy, you run it in the directory you want to recursively change permissions on.

For example:

perl perms.pl 750 640 zefie zefie

Would set all files under my home directory to 640 (rw/r/-), and all directories to 750 (rwx/rx/-), and make the owner and group "zefie".