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

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

##</code><code>##

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