Perlの文字コードの指定：use encoding

エンコードの指定。
プログラムの最初に記述

use encoding "euc-jp"; 　　　　　　　 # 標準入出力の文字コードは日本語EUC、スクリプトはEUCで記述
binmode STDERR, ":encoding(euc-jp)";  # 標準エラー出力も日本語EUCであつかうよー
use open IO => ":encoding(euc-jp)";   # OPENで呼び出したファイルもEUC
open( F, "< filename" ) or die;　　　 # この場合FのファイルはEUCで出力される。
print <F>;
close F;

ただし、OPENを3つ以上だときかないらしい。注意！
元の、エンコードが分かっていれば、Encodeモジュールで分けたほうがよさそう？