>>4

前に書いたけれど、

use open IO => ":encoding(cp932)";
binmode STDIN => ":encoding(cp932)";
binmode STDOUT => ":encoding(cp932)";
binmode STDERR => ":encoding(cp932)";

は実際には

use open qw(:encoding(cp932) :std);

で充分じゃないの？