sub getlinefromsocket ($socket) {
  my $buffer;
  my $char;
  while ($socket->recv($char,1)) {
    $buffer.=$char;
  }
}