Perl 解決Wide character in print with UTF-8 mode

use utf8;
binmode(STDIN, ':encoding(utf8)');
binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

但是如果要寫入FILE，則是

open FILE ,">:encoding(utf8)","tpca.csv";

print FILE ...;

close FILE;