#!/usr/bin/perl
use strict;
use warnings;

use IO::Socket::INET;

my $port = 9870;
print "Broadcasting on UDP port: $port To: ", inet_ntoa(INADDR_BROADCAST), "\n";
my   $sock = IO::Socket::INET->new(PeerPort  => $port,
                                 PeerAddr  => inet_ntoa(INADDR_BROADCAST),
                                 #PeerAddr => '192.168.12.255',
                                 Proto     => 'udp',    
                                 LocalAddr => 'localhost',
                                 Broadcast => 1 ) 
                             or die "Can't bind : $@\n";


# 10 udp's on the wire
for (my $i=0;$i < 100;$i++) {
	my $data = 'UDP packet ' . $i;
	# send udp packet
    print "Sending '$data'\n";
	$sock->send($data);
    sleep (rand 5);
}