$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 ();