read(FH, $record, $RECSIZE) == $RECSIZE || die "can't read record $recno: $!";