#!/usr/bin/perl
#udpclient.pl

use IO::Socket;
use warnings;
use Time::HiRes qw (sleep);


my ($socket,$data);


$socket = IO::Socket::INET->new (PeerAddr   => '10.11.254.81',
                                 PeerPort  => 5005,
                                 Type      => SOCK_DGRAM,
                                 Proto      => 'udp') or die "ERROR in
+ Socket Creation : $!\n";


@tempData = (20,30,40);
$socket->send(pack ("(A*)*", @tempData));

$socket->close();