#!/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,"字符串 "); ##########发送数据