Help for this page

Select Code to Download

Select or download this

binmode STDOUT, ':encoding(UTF-8)';

...
open my $OUT, '>:encoding(UTF-8)', "WE_EX2.out"
    or die "Can't open file WE_EX2.out for writing: $!";