>>4
についてなんですが、

>use open IO => ":encoding(cp932)";

があるので、

>open my $fh, '<', encode("cp932", $file) or die $! ; # ※2

の行の「encode()」は無くてもいいんですよね？
それとも無いとダメなんですか？