Select Code to Download

use strict;
use warnings;
...

open(my $gh, ">&:utf8", \*STDOUT) or die "open: $!";
print {$gh} $x;

$ LANG=C ./script
printing to /tmp/foo
...
printing to STDOUT
printing to duped STDOUT
Wide character in print at t5 line 18.