say会自动增加“\n”，而print不会。
perl默认不支持say，如何启动say呢？
程序的开头，添加：
use feature "say";
或
use v5.10;
其他方法，参照：https://stackoverflow.com/questions/37694988/how-do-i-get-say-to-work
