#!/usr/bin/perl

$recnum = 0;
while (read(REL, $record, $recordsize)) {
    # Process the record.
    $recnum++;
}
