# $RECORDSIZE is the length of a record, in bytes.
   # $TEMPLATE is teh unpack template for the record
   # FILE is the file to read from
   # @FIELDS is an array, one element per field
   until ( eof(FILE) ) {
      read(FILE, $record, $RECORDSIZE) == $RECORDSIZE
         or die "short read\n";
      @FIELDS = unpack($TEMPLATE, $record);
   }