eval { &$code; };  # call the wrapped sub
    if ($@) {
        # do something about that
        die $@;
    } else {
        # do something else
    }