my @records;
local $/ = \$RECSIZE;
local *_;
while (<$fh>) {
   push @records, parse_rec($_);
}