find({wanted => \&wanted,},'/tmp');

sub wanted {
 print "$File::Find::name\n";
}