Help for this page

Select Code to Download

Select or download this

sub wanted {
  print '.';
...
    found = $File::Find::name;
  }
}