my $wanted_c = sub {
    print "wanted_c is working on $_\n";
    ... etc ...
  };
  File::Find::find({wanted => $wanted_c}, $tester);