use strict;
use IO::Socket;

my ($host,$port) = ("localhost","9000");

my $remote = IO::Socket::INET->new(
    Proto    => "udp",
    PeerAddr => $host,
     PeerPort => $port
  ) or log_die "cannot connect to $host - $port\n";
die("[Connected to $host:$port]\n");

syswrite($remote, "Yooo\n")