- or download this
our $/;
open(my $in, "<", "myfile");
...
close $out;
close $in;
- or download this
$ perl test.pl
Wide character in print at test.pl line 10, <$in> line 1.
$
- or download this
0000000: c3af c2bb c2bf 6865 6c6c 6f2c 2077 6f72 ......hello, wor
0000010: 6c64 ld