use IO::Socket;
use strict;
use warnings;

my $sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 23456,
    PeerAddr => '10.254.83.40',
) or die "Could not create socket: $!\n";
select($sock); $|=1;
$sock->send("message from client") or die "Send error: $!\n";