1
2
3
4

use Encode;
use Term::Encoding qw(term_encoding);
my $enc = Encode::find_encoding(term_encoding);
print $enc->encode("ハローワールド！");

1
2
3

binmode STDIN  => ':encoding(shiftjis)';
binmode STDOUT => ':encoding(shiftjis)';
binmode STDERR => ':encoding(shiftjis)';