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";
}

##</code><code>##

sub wanted
{
   my @file_info;
   push @file_info, $File::Find::name;
   push @file_info, $File::Find::dir;
   push @file_info, $_;

   $borg->found(@file_info);
}