Select Code to Download

use Encode qw(from_to);
my $str = do { local(*ARGV); @ARGV=$File; <> };
open my $out, '>', 'X:\TestData.txt.UTF-8' or die $!;
print $out from_to($str, $x, 'UTF-8');
close $out or die $!;

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