Try adding this prior to calling File::Find

$SIG{__WARN__} = sub{ print STDERR  "No permission for directory:$1\n"
+  if $_[0] =~ m[\(([^\)]+)\)]; }
find .....
$SIG{__WARN__} = undef;
...
[download]

See perlvar:%SIG and the list of see also's at the bottom of that section for further information/explaination.