#!/usr/bin/perl
use Socket;
use DBI;
use strict;
#########连接socket部分
#CONNECT
my ($host,$addr,$msg);
$host = inet_aton($info{'host'});
socket($SOCK,AF_INET,SOCK_STREAM,getprotobyname('tcp'));
$addr = sockaddr_in($info{'port'},$host);
$msg = <$SOCK>; ########接收数据
send($SOCK,"字符串 "); ##########发送数据