#!/usr/local/bin/perl
use IO::Socket;
print "Waiting...\n";
$socket = IO::Socket::INET->new(LocalPort => 4321, Proto => 'udp');
$socket->recv($text,128);
chomp $text;
print "Got this message: >${text}<\n";
close $socket;


##</code><code>##

#!/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);