my ($byteoffset,undef,$filenumber) = unpack 'lssQ', ${$buffer};