Select Code to Download

sub BEGIN {
...
    print "Won't go out of eval!\n" ;
  } ;

sub BEGIN {
  *CORE::GLOBAL::die = \&DIE_2_WARN ;
...
  } ;
  
  print "ERROR: $@\n" ;