Select Code to Download

open(my $fh_in, '<:encoding(UTF-8)', ...) or die ...;

...

open(my $fh_out, '>:encoding(UTF-8)', ...) or die ...;
print $fh_out ...;