Select Code to Download

eval {
  for my $case ( @cases ) {
...
    process($case);
  }
};

  for my $case ( @cases ) {
    eval {
...
      print "$case had errors:$@";
    }
  }

use warnings FATAL=>'all';

#!perl -l
$|++;
...
  };  
  print "Baz"; 
}