eval { print "1\n"; last; print "2\n"; }; #### eval { print "1\n"; last; print "2\n"; }; print "Oops: $@\n" if $@;