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

myfind(\&Recursive, $source, $addtional_argument)