my $unicode_string = "Smiley Face: \x{263A}\n";
my $bytes = encode('UTF-8', $unicode_string);
binmode $fh, ':raw';
print {$fh} $bytes;

##</code><code>##

binmode $fh, ':encoding(UTF-8)';