Select Code to Download

use strict;
use Encode;
...

open my $fh, ">:encoding(UTF-8)", $file or die $!;
print $fh $in;

use strict;
use Encode;
...
binmode STDOUT, ">:encoding(UTF-8)";

print $string;