如何从Perl输出UTF-8？

use utf8;

open(my $fh, '>:encoding(UTF-8)', 'output.txt') or die "Error opening file: $!";

print $fh "这是一个UTF-8字符串\n";

close($fh);

use utf8;

open(my $fh, '>:encoding(UTF-8)', 'output.txt') or die "Error opening file: $!";

print $fh "这是一个UTF-8字符串\n";

close($fh);