Help for this page

Select Code to Download

Select or download this

  $socket = IO::Socket::INET->new(
                                     PeerAddr=> $self->host,
...

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

Select or download this

  if(!($socket->syswrite($string, length($string)))){
    print "Error writing\n";
  }