Select Code to Download

my $sendSock = IO::Socket::INET->new( 'Proto'    => 'udp',
                                          'PeerPort' => $udp_port,
...
    ) or die("Error creating socket $!");

$sendSock->send($data) or die("Socket send error $!");

my $listenSock = IO::Socket::INET->new('LocalPort'=>$udp_port, 'Proto'
+=>'udp');
my $readBuff;
$listenSock->recv( $readBuff, $MAX_BYTES );