$File::Find::name would only work if you gave an absolute path to find() (and then would still be slower). Use $_ instead. If you did what you should always do when calling such system functions, you would have probably already figured this out:

chmod 0777, $File::Find::name
    or  warn "Can't chmod 077, $File::Find::name: $!\n";
[download]