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