perl eval 异常捕获

类似java中的try{}catch{} 语句，perl中也可以捕获程序执行过程中的异常，防止因为局部异常导致程序全盘退出。

my $a=0;
my $b=1;
my $c=1;
eval {
        $c = $b/$a;
};
print Dumper($c);