use 5.014;
use Try::Tiny;
#检测Try::Tiny是否安装
#perl -e "use Try::Tiny"
#查看 perldoc Try::Tiny 内置模块的帮助文档
#2.使用try catch异常
try {
#2.1 可能会出现异常的代码
my $a = 5 / "w";
} catch {
#如果错误则按执行这里的代码
say "error $@";
} finally {
#不管出不出错这里的代码都执行
print "管你出不出错就是干\n";
}