$char_string = decode("euc-jp", $jp_bytes);
binmode FH, ":encoding(euc-jp)";
print FH $char_string;