sysread( $new_sock, $sres, 1024, length($sres) )