Select Code to Download

eval {
     print "1\n";  
     last;
     print "2\n";
};

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