>>5の
use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)"; # ※1
は
use open IO => ':encoding(cp932)', ':std';
で済むようだ
これで:encoding(cp932)がゲシュタルト崩壊しなくて済む…