Select Code to Download

$SIG{__DIE__}= sub {print "fubar!\n"};
eval {
...
    $a/$b
};
print $@;

fubar!
Illegal division by zero at - line 5.