Select Code to Download

sub genBufferedGetNum {
    return sub {
...
while( my @part  = $getNum->() ) {
  print @part, "\n";
}

$: cat tb.dat
0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0
$:

$: cat tb.dat | perl tb.pl
01234
...
01234
56789
0