sub myfind {
   my ($code, @args) = @_;
   find(sub { $code->(@args)})
}