sub getlinefromsocket {
   my $socket = shift;
   my $buffer, $char;

   my $max_buf_size = 3;

   # tu was mit $buffer
   while ( $socket->recv( $char, 1 ) ) {
      last if ( $char eq ' ' );
      $buffer .= $char;
      last if ( length $buffer == $max_buf_size );
      # wenn mit last die Schleife verlassen wird, wird das print nicht ausgeführt!
      print $char;
   }

   # reiche den gefüllten Buffer weiter
   return $buffer;
}