Select Code to Download

foreach (@items) {
  ...  a lot of perl code ...
...
}

ok(! $err,"Fancy code") or diag $err;