my $n = unpack("v", substr($str, $off, 2));
     $off += 2;