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