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