my $blocks = ord(substr($rest,8,1));
warn "# response from $tag $blocks blocks ",as_hex substr($rest,9);
foreach ( 1 .. $blocks ) {
my $blocks = ord(substr($rest,8,1));
warn "# response from $tag $blocks blocks ",as_hex substr($rest,9);
foreach ( 1 .. $blocks ) {