Select Code to Download

sub search {
  my $wanted = shift;
...
  }
}
# I don't care about the File::Find ... how do you pass the block to a
+nother subroutine/method?

sub walk_tree {
  my ($self, $branch_handler, $leaf_handler) = @_;
...
   }
  }
}