#b2.pl
use strict;
use utf8;
$_="中文";
binmode STDOUT, ":encoding(gbk)";
print "$_\n";