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";
  }
}