Perl 没有内置的异常处理机制，所以最合适的方法就是使用Try::Tiny 模块。虽然CPAN中处理异常的模块很多，但是这个模块最为轻巧，使用起来也没有过多的依赖关系。

语法:

use autodie;use Try::Tiny;# handle errors with a catch handlertry {  die "foo";} catch {  warn "caught error: $_"; # not $@};

注意：catch 代码以分号结尾的，是一个表达式。另外，它会将出错的信息保存在变量$_而不是$@中。