使用Perl创建指定编码格式的文件, 如创建utf-8格式

当Perl读入的源文件是Unicode的utf-8格式的话，有时候在使用Perl处理并输出到一个新文件以后，编码格式会自动发生变化。
从而使得有些字符(尤其是宽字符)不能正确地显示，即已经不是utf-8格式了。

解决办法是：

需要打开输出文件的时候就指定编码格式，这样就不会出现输出文件打

开以后乱码的情况。

普通的默认open输出文件
open(OUTPUT,'>>output.txt')||die"can not open the file: $!";

定义指定编码格式文件(或者成为使用Perl创建一个指定编码格式的文件) 
open OUTPUT, ">:encoding(utf-8)", "output.txt";
print OUTPUT $something;
close OUTPUT;