use IO::Socket;

use strict;  use warnings;

my $sock = IO::Socket::INET->new(
    PeerAddr => 'localhost:9999',
    Proto=>'udp',
	
    )
or die "sock new: $!\n";
my $result;
$sock->send("abc",0) or die "send: $!\n";
defined($sock->recv($result,1,0)) or die "recv: $!\n";