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