perl -e'BEGIN { local $@; print "a"; die "b"; print "c"; } print "d";'

##</code><code>##

b at -e line 1.
BEGIN failed--compilation aborted at -e line 1.