use strict;
use warnings;

my $src_enc = 'UTF-8';
my $dst_enc = '...';

binmode(STDIN,  ":encoding($src_enc)");
binmode(STDOUT, ":encoding($dst_enc)");

print while <STDIN>;