Select Code to Download

find($obj->found,$directory);
### in the object package:
sub found
...
   print $File::Find::dir."\n";
   print "--------------------------\n";
}

sub wanted
{
...

   $borg->found(@file_info);
}