纯PERL 实现简单TCP服务器

纯PERL 实现简单TCP服务器
#=================================================================
# TCP_SERVER! usage: $socket=makeServer($Localport);#
#=================================================================
sub makeServer{
$|=1;
my $port=shift;$port=80 unless $port;
my($af_inet,$sock_stream,$pro);
socket(SOCK,$af_inet=2,$sock_stream=1,$pro=6);
my $addr=pack('Sna4x8',$af_inet=2,$port,"\0\0\0\0");
bind(SOCK,$addr) || die "Can't bind at port $port!\n";
listen(SOCK,5);
accept(SOCK_NEW,SOCK);
return \*SOCK_NEW;
} #返回一个 socket套接字，这样就可以使用 print $sock "$msg";recv($sock,$msg,200,0);来进行网络通信了
#=================================================================
###########################
##made by MR.WATER QQ:175 785 113 #
###########################

建议兄弟别用perl 了，直接用c
用perl 是因为方便，可以提高开发效率，但是看到楼主发贴都是“纯perl" 开头的。

看不懂啊 请教.