my( $len1,  $len2  ) = unpack "SS", $packed;
my( $data1, $data2 ) = unpack "x[SS] A$len1 A$len2", $packed;