find($obj->found,$directory);
### in the object package:
sub found
{
   my $self=shift;
   my ($full_name, $file_dir, $file_name) = @_;

   print "--------------------------\n";
   print $self."\n";
   print $full_name."\n";
   print $file_dir."\n";
   print $file_name."\n";
   print $File::Find::name."\n";
   print $File::Find::dir."\n";
   print "--------------------------\n";
}