($flag1, $bytecount, $mystery, $flag2) 
         = unpack "a8 a16 a@{[length($frame)-32]} a8", $frame;