#!/usr/local/bin/perl
use IO::Socket;
$x="my string ends here\n";
$sock = new IO::Socket::INET(
        PeerAddr => 'machine_name',
        PeerPort => 4321,
        Proto    => 'udp');

$sock->send($x);