Select Code to Download

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

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