Select Code to Download

sub readlines {
  my ($fh, $count) = @_;
...
c 
d
e

a
b  
...
d
e
----

sub readlines {
  my ($fh, $count) = @_;
...
  }
  return @gulp;
}