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