use IO::Handle; #挂起IO::Handle use Socket; #调用SOCKET $port=9000; #连接远程主机的80端口 $host='localhost'; #使用环回地址 $packhost=inet_aton($host); #压缩IP地址 $address=sockaddr_in($port,$packhost); #压成sockaddr_in格式 socket(CLIENT,AF_INET,SOCK_STREAM,6); #套接字为CLIENT,使用TCP协议 connect(CLIENT,$address); #连接 CLIENT->autoflush(1); #开启AUTOFLUSH模式 $msg_in=<CLIENT>; #INPUT print "IN:$msg_in/n"; #OUTPUT print CLIENT "Hello/n"; $msg_in=<CLIENT>; #INPUT print "IN:$msg_in/n"; #OUTPUT print CLIENT "bye/n"; $msg_in=<CLIENT>; #INPUT print "IN:$msg_in/n"; #OUTPUT close CLIENT; #关闭套接字 exit 1; #退出程序 与服务器端连接,以一次一行方式对话,以bye结束 ps:为什么没有Perl的代码显示器呢