Select Code to Download

open( X, 'x.txt' );
my ( $chunk, $line );
while (<X>) {
...
}
doSomethingWithChunk($chunk);
# process whatever's left in $chunk at the end

my $p = new Algorithm::Permute(['a'..'d']);
  while (@res = $p->next) {
    # do something with @res
  }