Select Code to Download

open(my $fh_in,  '<:encoding(UTF-8)', 'C:\\data.in") or die $!;
open(my $fh_out, '>:encoding(UTF-8)', 'C:\\data.out") or die $!;
...
    # ...
    print $fh_out "$_\n";
}