Revision 2 (by moose, 2008/11/28 19:56:31) initial import 
#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::Multicast;
use IO::Select;

my $s = IO::Socket::Multicast->new( Proto => 'udp', PeerAddr => '226.1.1.2:2000');
$s->mcast_loopback(1);
$s->mcast_add('226.1.1.2') || die "Couldn't set group: $!\n";

while(1) {
	$s->send("Hi\n") || die;
	sleep(1);
}