sub wanted {
    print OUT "$File::Find::dir/";  
    print OUT "$_\n";          
    }

##</code><code>##

sub wanted {
    print OUT "$File::Find::name\n";  
    }

##</code><code>##

sub wanted {
    print OUT "Directory: $File::Find::dir\n";
    print OUT "Basename: $_\n";
    print OUT "Full Path: $File::Find::name\n";
    }