use strict;
use warnings;
use File::Find;

find (\&wanted, '..');

sub wanted {
  if (-e $File::Find::name) {
    print "Found $File::Find::name\n";
  } else {
    print "Didn't find $File::Find::name\n";
  }
}

##</code><code>##

Found ..
Didn't find ../Ook.pl
Didn't find ../test2.out.txt
Didn't find ../test2.pl
Didn't find ../test2.txt
Didn't find ../test3.txt
Didn't find ../test4.txt
Didn't find ../Job
Found ../Job/Func.pm
Found ../Job/Game.pl
Found ../Job/Game.pm
Found ../Job/1st
Didn't find ../Job/1st/Func.pm
Didn't find ../Job/1st/Game.pl
Didn't find ../Job/1st/Game.pm
Didn't find ../tk
Found ../tk/tkTest.pl
Found ../tk/tkTest.vpd

##</code><code>##

find ({wanted => \&wanted, no_chdir => 1}, '..');