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 $!");