$ret = sysread($sock, $buf, 100);