Help for this page
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: $!";