Select Code to Download

sub wanted {
   my ($spls) = @_;
...
   find(sub { wanted($spls) }, $seek_path);
   ...
}

sub search {
   ...
...
   );
   ...
}