Select Code to Download

while (my @chunk = get_chunk(\*IN, 10)) {
  # etc
...
  push @result, scalar <$fh> foreach 1..$count;
  return @result;
}

my $sub = chunker(\*IN, 10);
while (my @chunk = $sub->()) {
...
    return @ret;
  };
}