#!/usr/bin/perl

$byteoffset = $recordwanted * $recordsize;
seek(REL, $byteoffset, 0)       || die "Can't find rec: $!\n";
read(REL, $record, $recordsize) || die "Can't read rec: $!\n";
