关于socket发送数据的问题（急）

用下面这个程序发送数据，为什么用网络抓包抓不到数据呢？难道是没有发出去？还是对方没有收到？或者我的程序错了呢？


#!/urs/bin/perl -w
use IO::SOCKET;

$sock = IO::Socket::INET->new(peerAddr=>'192.168.1.166',
                                       PeerPort=>8080,
                                       proto=>'udp')||die "can't connect";

foreach(1..10)
{
   print "$sock 123\n";
$sock->flush();
}
close($sock);

print "$sock 123\n";
=>
print $sock "123\n";