$length = unpack "C4", substr $data,0,2,'';