perl print中文乱码

use utf8;
use open ‘:encoding(gbk)’, ‘:std';
use open ‘:encoding(utf8)';