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