>>7 の 2行目から 5行目って
use open qw(:encoding(cp932) :std);
一個で済むんじゃないの？