perlのwarning消したければ、LC_ALL=ja_JP.EUCな。