my $s = IO::Socket::UNIX->new(
                Type      => SOCK_STREAM,
                Local     => $sockname,
                Listen    => 10,
                ReuseAddr => 1,
            );
            if ( not $s ) {
                logerr("Can't create socket $sockname : $!");
                exit $PACE::Constants::DAEMON_EXIT;
            }
            
            # Vantive ? : Set the Socket to non-blocking.
            $s->blocking(0);
            my $tmp_val = $s->blocking();
            logdbg( 15, "Blocking flag = $tmp_val\n");
 
...

    logdbg(14, "writeSocket : File # $fn has $size bytes to send.\n");

    # if no data to write just return
    return if ($size == 0);
    
    $sent = syswrite $wh, $buf, $size;

    logdbg(14, "writeSocket : $size bytes attempted, $sent bytes written.\n");

...

06/01/31 15:49:56 Agent: writeSocket : File # 35 has 100098 bytes to send.

06/01/31 15:50:26 Agent: writeSocket : 100098 bytes attempted, 100098 bytes written.