#!/usr/bin/perl
use strict;
use lib '../blib/lib','../blib/arch';
use IO::Socket::Multicast6;
#use constant GROUP => 'ff15::9023';
use constant GROUP => '239.255.30.29';
use constant PORT => '2000';
my $sock = new IO::Socket::Multicast6(
LocalAddr=>GROUP,
LocalPort=>PORT,
)
|| die "Failed to create multicast socket: $!";
$sock->mcast_ttl(5) || die "Failed to set TTL: $!";
$sock->mcast_loopback(1) || die "Failed to enable loopback: $!";
$sock->mcast_dest(GROUP, PORT);
while (1) {
my $message = localtime();
$sock->mcast_send($message) || die "Couldn't send: $!";
print "Sent: $message\n";
} continue {
sleep 4;
}