#!/usr/bin/perl -w
use strict;
use IO::Socket;
my $client = new IO::Socket::INET(
                                  PeerAddr => '127.0.0.1',
                                  PeerPort => 3333, 
                                  Proto    => 'udp'
                                 );
(!$client) && die "failed to create sock: $!";
my ($request, $response);
$request = 'the request to rule the world';
while(1 == 1) {
    if (! defined($client->send($request))) {
        print "send failed: $!\n";
    } else {
        print "send succeeded\n";
    }
    sleep 3;
}

##</code><code>##

send succeeded
send failed: Connection refused.
send succeeded
send failed: Connection refused.
send succeeded
.
.
.

##</code><code>##

send succeeded
send succeeded
send succeeded
send succeeded
.
.
.

##</code><code>##

send succeeded
send failed: Destination host unreachable.
send succeeded
send failed: Destination host unreachable.
send succeeded
send failed: Destination host unreachable.
.
.
.