#!/usr/bin/perl
#
use strict;
use IO::Socket;


# defaults
my $bcaddr = '192.168.254.255';
my $port = 9870;

# open UDP socket
my $sock = IO::Socket::INET->new(
	Proto=>'udp',
	LocalPort=>$port,
	PeerHost=>$bcaddr,
	PeerPort=>$port)
		or die "new socket:$@";

# 10 udp's on the wire
for (my $i=0;$i < 10;$i++) {
	my $data = 'UDP packet ' . $i;
	# send udp packet
	$sock->send($data) || die "send(): $!";
}