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

   my $first = 1;
   my $line;

   my @rec;

   return sub {
      my ($fh) = @_;

      # Skip what's before first record.
      if ($first) {
         $first = 0;
         for (;;) {
            $line = <$fh>;
            last if not defined $line;
            chomp($line);
            last if $line eq $sep;
         }
      }

      while (defined($line)) {
         my @rec;

         for (;;) {
            push @rec, $line;
            $line = <$fh>;
            last if not defined $line;
            chomp($line);
            last if $line eq $sep;
         }

         return \@rec;
      }
   };
}