sub search {
  my $wanted = shift;
  foreach my $path (@_) {
   print "Searching in '$path'\n";
   find($wanted, $path);
  }
}
# I don't care about the File::Find ... how do you pass the block to another subroutine/method?