#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(Proto => 'udp',
	peerPort => 4321,
	peeraddr => localhost);
$socket->send('Hello');