麻烦帮我看一下这个socket程序

麻烦帮我看一下这个socket程序
   摘自 中国Perl协会 用户推广组   擦肩而过的精灵  2008-04-15 21:20
http://bbs.perlchina.org/ccb/index.cgi
服务器端：
use IO::SOCKET;
$sock = IO::SOCKET::INET->new(LocalAddr=>'127.0.0.1',
                        LocalPort=>8080,
                        Proto=>'tcp',
                         Listen=>3,
                          Reuse=>1);
$sock_2 = $sock->accept();
while($data=<$sock_2>){

  print $data;
}
close $sock;

客户端：
use IO::SOCKET;
$sock = IO::SOCKET::INET->new('127.0.0.1::8080');
$msg = "Hello";
$sock->print($msg);
close $sock;


上面这段程序可以实现收发，但为什么当我把 服务器程序中的 Proto=>'tcp',改成了Proto=>'udp'以后就不能实现收发了呢？

楼主在这两个论坛里的热情我很感动
IO::Socket::INET 默认使用TCP， 服务端设置成udp，客户端没设置，那么默认客户端是tcp，
tcp去连udp恐怕。。。。。。

学习学习!