binmode $fh, ":encoding(cp1252)";