eval {local $@; die};

if ($@) {say "eval failed"}
else {say "eval succeeded"}
__END__
eval succeeded