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