>
>cat 1.pl
BEGIN {
    local $@;
    call_undefined_subroutine_or_another_error("argument");
}
print "blabla\n";

>
>
>
>perl 1.pl
blabla
>
>