# Read Block
    while (read (DATA, $data, BLOCKLEN)) {
        # Read Block Header
        read (DATA, $data, BLOCKHDR);