use Encode;

my $text = decode("UTF-8", "\xCE\xA9");

print $text;            # wrong: "Wide character in print at..."

open FH, ">:utf8", "myfile" or die $!;
print FH $text;         # OK