用autodie简化错误处理

autodie编译指令（从5.10.1起开始自带，也可以直接从CPAN安装)

默认情况下，autodie会对它能起作用的所有函数生效。如果只是希望对某些特定函数起作用，可以将各个函数的名字或一组函数的组名列出来告诉autodie：

use autodie qw(open close);     #只对特定函数生效
use autodie qw(:filesys);            #只对 某组函数生效

在autodie捕获错误时，它会把$@设置为autodie::exception对象，而$@就是表示eval错误变量