while (@$rq) {
    my $msg            = $rq->[0];
    my $bytes_to_write = length($msg) - $offset;
    my $bytes_written  = 0;

    while ($bytes_to_write) {
      #write the prefixed length
      print "_send: syswrite to sock prefix length\n";
      
      eval {
        $bytes_written = syswrite ($sock, $msg,
                                   $bytes_to_write, $offset);
      };
      if ($@){
        print "_send: syswrite to sock error <$@>\n";
      }
      print "_send: syswrite to sock returned <$bytes_written>\n";
       
      if (!defined($bytes_written)) {
        if (_err_will_block($!)) {
          # Should happen only in deferred mode. Record how
          # much we have already sent.
          $conn->{send_offset} = $offset;
          # Event handler should already be set, so we will
          # be called back eventually, and will resume sending
          return 1;
  ...


##</code><code>##

checkRealTTY:: starting UID=<UID> rIP=<>  Acct=<root>
_send entered  <Msg=HASH(0x29987c8)> flush=<1>
_send: syswrite to sock prefix length
root@kali:/usr/share/msg/bin#