eam/gist:e39b695c965786c980b1a90f9d37a65b

## gistfile1.txt
#!/usr/bin/perl

use warnings;
use strict;
use feature 'say';
use utf8;
use open qw( :std :encoding(UTF-8) );
use lib ".";
use 中文;
#say for %INC

包 你好;

say "hi";
函数 笑 { 说 "哈哈哈" };

笑

 ./test.pl
hi
哈哈哈
	#!/usr/bin/perl

	use warnings;
	use strict;
	use feature 'say';
	use utf8;
	use open qw( :std :encoding(UTF-8) );
	use lib ".";
	use 中文;
	#say for %INC

	包你好;

	say "hi";
	函数笑 { 说 "哈哈哈" };

	笑

	./test.pl
	hi
	哈哈哈