$ perl -E 'eval { die "Ay, caramba!"; }; say "foo"'
foo