socket建立连接后，如何送出一个回车

findufo

目前的代码如下，改加什么语句     

while($conn_sum<4){
         $sock = new IO::Socket::INET(PeerAddr =>; $ip,
                                     PeerPort =>; $port,
                                     Proto    =>; 'tcp'
                                     );
        if($sock){
                last;
        }
        else{
                $conn_sum++;
                sleep(3);
        }
    }

apile

if($sock){
$| = 1;
print $sock "\n";
last;
}

findufo

谢谢