12345
my $buffer = '';while (my $rc = $s_socket->recv($s_output, 1024) ) {$buffer .= $s_output;}# und dann weitere Verarbeitung