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

##</code><code>##

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

##</code><code>##

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