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