$count_out = $ob->write($send);
  warn "write failed\n"         unless ($count_out);
  warn "write incomplete\n"     if ( $count_out != length($send) );
$result = waitfor_binary_response ();

##</code><code>##

($count_in, $result) = $ob->read(12);
  warn "read unsuccessful 1\n" unless ($count_in == 12);
  $header_binary = $result;

 my($start, $byte_length, $from, $to) = unpack("vvVV", $result);