use IO::Socket;
use strict;
use Time::HiRes qw(usleep);

my $sock = IO::Socket::INET->new(
    Proto    => 'udp',
    PeerPort => 12345,
    PeerAddr => '192.168.1.10',
) or die "Could not create socket: $!\n";

my $data = pack("H*","1234");

for (my $i=0; $i <= 128; $i++)
{
	for (my $j=0; $j <= 256; $j++)
	{
		print $sock $data;
	}
	usleep(5000);
}