Perl で euc-jp の端末に出力

Perl で euc-jp の端末に出力する．

binmode STDOUT, ':encoding(euc-jp)';