Select Code to Download

    my $b_err = 0;
    $SIG{'PIPE'} = sub { $b_err = 1 };
...
        # .... Handle the SIGPIPE error
    }

 print $agent_socket "$monitoring_node.lmonitor.$monitoring_name.rtt.v
+alue=. $latency .\n";