Perl で内部コードを UTF-8, 入出力を EUC-JP にする

use encoding 'euc-jp';        # 内部コードをUTFにし、ソースコードをeuc-jpとみなす
use open ':encoding(euc-jp)'; # ファイル入出力にeuc-jpとutf-8のコード変換を掛ける
use open ':std';              # 標準入出力も変換する

入出力にファイルを使わない場合は、単に

use encoding 'euc-jp';