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

麻烦帮我看一下这个socket程序
服务器端：
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'以后就不能实现收发了呢？