eval q{
    local $@;
    call_undefined_subroutine_or_another_error("argument");
};