You can save a little overhead by reusing the stat buffer using the magical filehandle '_',

"doh! can't read directory $file!\n"
  if (-d $file and not -r _);
[download]

In the case of File::Find, they guarentee that lstat will have been called before the wanted sub is called, so rather than

sub wanted{
    print $File::Find::name if -d $_ and $r $_;
}
[download]

you can use

sub wanted{
    print $File::Find::name if -d _ and -r _;
}
[download]