while (sysread($sock, $buffer, 1024)) { print $buffer }