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