sub getlinefromsocket{
  my $buffer;
  my $char;
  my $max_buf_size = 3;
  while ( $socket->recv( $char, 1) ) {
    last if ( $char eq ' ' );
    $buffer .= $char;
    last if ( length $buffer == $max_buf_size );
    print $char;
  }
}