open (CID,'<:encoding(UTF-16BE)', 'name.txt') or die "name.txt: $!";