sub getlinefromsocket {
   my $socket = shift;
   my $buffer;
   my $char;
   while ( $socket->recv( $char, 1 ) ) {
      last if ( $char eq "\0" );
      $buffer .= $char;
   }
   return $buffer;
}