Select Code to Download

    open my $fh, '<:encoding(UTF-8)', $filename
        or die "Couldn't open '$filename': $!";

    open my $fh, '>:encoding(UTF-8)', $filename
        or die "Couldn't open '$filename': $!";

use charnames ':full';
use Encode 'encode';
...
my $output = "MOT\N{CAPITAL LETTER O WITH DIAERESIS}RHEAD";
my $output_bytes = encode( 'UTF-8', $output );
print $fh $output_bytes;