Select Code to Download

sub readNLines {
    my $lines_to_read = shift or die '....';
...
}

while (@lines = readNLines(4)) { do_stuff() }

    while ( my $record = readRecord( ... ) ) { ... }

    while ( $line1=<> && $line2=<> && $line3=<>... ) { ... }