Select Code to Download

  for $i ( 1 .. $foo ) {
    last if bar($i);
  }
  print $i;

use warnings;
use strict;
...
  }
}->();
print $i;