#!/usr/local/bin/perl -w
use strict;
use File::Find;
sub perms
{
my $perm = (stat($_))[2];
$perm &= 0777;
my $u = $perm >> 6;
my $o = $u & 5;
my $n = ($u << 6) | ($u << 3) | $o;
if ($perm != $n)
{
printf "$File::Find::dir/$_ is %3o not %3o\n",$perm,$n;
chmod($n,$_);
}
}
find(\&perms,'.');