wanted(), being the non-OO answer, is supposed to recieve a file name via $_. Check the perldoc, it backs me up. Not that I'm saying its the best way that this should have been done, but find is supposed to produce 3 elements for your called subroutine:

• $File::Find::name => Path + Filename.
• $File::Find::dir => Path
• $_ => Filename

I'm not sure whether it clashes or agrees with your statement. Regardless, I'm getting the data as I think it works, like this:

Calling:

Called:

sub found
{
   my $self=shift;
   my ($full_name, $file_dir,$file_name) = ($File::Find::name,$File::F
+ind::dir,@_);
}
[download]

Thanks again!!