Select Code to Download

open (DATA,"$input_file") || eval {
  print "Can't open file $input_file: $@";
  exit;
};

>perl -wMstrict -le
"eval { die 'zot!' };
...
after first eval: 'zot! at -e line 1.
'
in second eval: ''