#!/opt/local/bin/perl
use strict;
use diagnostics;
use warnings;
use File::Find;
my $d = "/Users/dbae/tmp";
find(\&p,$d);
sub p { };
##</code><code>##

H2:~% pwd
/Users/dbae
H2:~% ls -ld .
drwxr-xr-x+ 99 dbae  dbae  3366  3 May 14:41 ./
H2:~% ls -ld tmp
drwxr-xr-x  68 dbae  dbae  2312  3 May 14:14 tmp/
H2:~% ~/bin/t # name of file containing perl code
##</code><code>##

Can't cd to (/Users/dbae/tmp/) tmpvdlE9a: Permission denied
 at /Users/dbae/bin/t line 7
Can't cd to (/Users/dbae/tmp/) tmpZgzgiz: Permission denied
 at /Users/dbae/bin/t line 7