Hi nikita.af,

Try catching the SIGPIPE signal. Something like:

    my $b_err = 0;
    $SIG{'PIPE'} = sub { $b_err = 1 };
 
    print $agent_socket $monitoring_node . ".lmonitor." . $monitoring_
+name . ".rtt.value=" . $latency . "\n";

    if ($b_err) {
        # .... Handle the SIGPIPE error
    }
[download]

will likely work. If a SIGPIPE error happens while printing to the socket, the flag "$b_err" gets set, and you can then handle the error appropriately.

Oh, one other note -- isn't:

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

a lot easier to read than the original? ;-)