perl实现socket通信

     Perl中可以直接调用Linux下C库中Berkeley套接字内置接口，调用方式和C语言一致，只是换成Perl的语法而已。偶就不说了，网上一箩筐资料。
    我使用Perl中的IO::Socket模块来开发，个人经验使用Perl语言开发的过程中能使用模块的尽量使用，一个是可靠，二个是方便，最主要的是便于跨平台的移植，Linux也好，windows也好只要安装了相应的模块，代码不需要修改直接运行。
    Socket地址协议簇分为AF_UNIX、AF_INET、AF_INET6等，常用的也就是AF_INET，其它两种没用过，不好说。IO::Socket::INET模块（包含在模块IO::Socket中）是针对AF_INET开发的，所以正常情况下，都是结合这两个模块进行perl代码的书写。
   
Client端代码：
#!/usr/bin/perl -w
use IO::Socket;  ##IO::Socket::INET模块是IO::Socket模块的子模块，不用重新use。
use IO::Select;  ##该模块和Linux下select()函数实现的功能一致，另扩展更过的功能。可以perldoc查看。

# hash to install IP Port
%ser_info = (
    "ser_ip" => "1.1.1.1",
    "ser_port" => "8888",
);

&main();

sub main {
    my $ser_addr = $ser_info{"ser_ip"};
    my $ser_port = $ser_info{"ser_port"};
    ##IO::Socket::INET->new()用于初始化一个socket连接，其中集成了socket、inet_aton、connect、bind、listen等功能。就不需要单独转换IP地址为网络地址结构了，直接使用IP地址就ok了。
    ##具体参数下面单独介绍。
    my $socket = IO::Socket::INET->new(
                                         PeerAddr => "$ser_addr",