$socket = IO::Socket::INET->new(
                                     PeerAddr=> $self->host,
                                     PeerPort=> $self->port,
                                     Proto=> "tcp",
                                     Blocking => 1 );

  ....
  $socket->syswrite($string, length($string));