open(my $output, '>:utf8', $filename) or die "Cannot write $filename: $!";