my @records;
local *_;
while (read($fh, $_, $RECSIZE)) {
   push @records, parse_rec($rec);
}