#b1.pl
use strict;
use utf8;
$_="中文";

sub p{
    my $_=shift;
    binmode STDOUT, ":encoding(gbk)";
    print "$_\n";
}

p($_);
p($_);

__END__