sub carp {
    if($should_i_stay_or_should_i_go) {
        require Carp;
        goto &Carp::carp;
    } else {
        # process locally
        ...
    }
}