use encoding qw(cp932); で十分。