my $n = 0 ;
  my $s = $p ;
  my $l ;
  do {
    if ($l = unpack("\@$p C", $response)) { $n++ ; } ;
    $p += $l + 1 ;
  } while ($l) ;