my ($offset, $independent,$number)=pack('QxCI' ,$buffer);