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

##</code><code>##

eval q{
    call_undefined_subroutine_or_another_error("argument");
};

##</code><code>##

BEGIN {
    call_undefined_subroutine_or_another_error("argument");
}