binmode STDOUT, ":encoding(gbk)";
print "$_\n";

__END__