Select Code to Download

$ cat in.txt
}cýæu}*]…‘¦å
hello ›ÇÁ

use warnings;
use strict;
...
    print $wfh "file: $_\n";
    print "stdout: $_\n";
}

# output file
file: }cýæu}*]…‘¦å
...
# stdout
stdout: }cýæu}*]…‘¦å
stdout: hello ›ÇÁ