use strict;
use IO::Socket;

my $socket=IO::Socket::INET->new(PeerAddr => 'localhost',
                                 PeerPort => 2224,
                                 Proto     => 'udp')
  or die "socket: $!";

syswrite($socket, "Hello, there\n");