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