our $/;

open(my $in, "<", "myfile");
open(my $out, ">", "myoutfile");

my $d = <$in>;
print $out $d;

close $out;
close $in;

##</code><code>##

$ perl test.pl
Wide character in print at test.pl line 10, <$in> line 1.
$

##</code><code>##

0000000: c3af c2bb c2bf 6865 6c6c 6f2c 2077 6f72  ......hello, wor
0000010: 6c64                                     ld