#!/usr/bin/perl
#udpclient.pl
use IO::Socket;
use warnings;
use Time::HiRes qw (sleep);
my ($socket,$data);
#my $in_file_name = $ARGV[0];
$in_file_name='C:\Users\Aryan Sinha\Documents\Example.csv';
open(INFILE,"<",$in_file_name) or die "Not able to open test file $!";
$socket = IO::Socket::INET->new (PeerAddr => '10.11.xxx.yy', PeerPort 
+=> 5012, Type => SOCK_DGRAM, Proto => 'udp') or die "ERROR in $socket
+->send("$data");
sleep(0.25);
$socket->close();
[download]