use IO::Socket::INET;

$MySocket=new IO::Socket::INET->new(
                                                 LocalAddr=>Local_IP,
                                                 LocalPort=>Local_Port,
                                                 PeerPort=>Peer_Port,
                                                 Proto=>'UDP',
                                                 PeerAddr=>Peer_IP,
);
$MySocket or die "no socket :$!";