#!/usr/bin/perl

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