open(my $fh, '>:encoding(UTF-8)', ...) or die;
print($fh $text);

##</code><code>##

use open ':std', ':encoding(UTF-8)';
print($text);

##</code><code>##

use Encode qw( encode );
print($fh encode("UTF-8", $text));

##</code><code>##

use Encode qw( encode );
print(encode("UTF-8", $text));

##</code><code>##

>perl -wle"print chr(0x2660)"
Wide character in print at -e line 1.
<junk><junk><junk>

>perl -MData::Dumper -we"print Dumper chr(0x2660)"
$VAR1 = "\x{2660}";