open FH, $file_name or die "could not open $file_name: $!\n";
binmode FH, ":encoding(UTF-16)";