if ( $agent_socket->connected ){
       print $agent_socket $monitoring_node . ".lmonitor." . $monitoring_name . ".rtt.value=" . $latency . "\n";
   }else{
      # Your retry logic here
   }