Select Code to Download

my $rec_reader = make_rec_reader('myrecordsep');
while (my $rec = $rec_reader->($fh)) {
...
   print "$_\n" for @$rec;
   print("\n");
}

sub make_rec_reader {
   my ($sep) = @_;
...
      }
   };
}

my $sep = 'myrecordsep';

...
      process_rec(\@rec);
   }
}