open(my $fh, '>', ...) or die ...;
my $buf = encode('UTF-8', $text);
sysrwite($fh, $buf);  # Or: print $fh $buf;