$ mkdir a
$ chmod -r a
$ cat ff.pl
#!/usr/bin/perl

use warnings;
use strict;
use File::Find;
#no warnings 'File::Find';

find({ wanted => \&wanted }, '.');
sub wanted { /^myscript$/ && print "$_\n" }

$ perl ff.pl
Can't opendir(./a): Permission denied
 at ff.pl line 8