open my $in, "<:encoding($x)", $filename or die $!;
open my $out, ">:encoding(UTF-8)", "$filename.utf8" or die $!;
select $out;
pirnt  while (<$in>);
close $in or die $!
close $out or die $!;