my $message = '';
my $buffer = '';
my $maxLen = 4096;
while(my $read = $socket->recv($buffer, $maxLen)) {
   $message .= $buffer;
   last if $read < $maxLen;
}