{
    local $SIG{__DIE__};
    eval {
        # your code here
        ...
    };
}
if($@) {
    # oops!
    ... 
}