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 = 'sample req';
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
.
.