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