$ perl -MFile::Find -we'$obj=bless []; sub found { print "looking at $_\n" }
> find(sub {$obj->found}, "pbed/fooble")'
looking at .
looking at a
looking at b
looking at c