1#!/usr/bin/perl
2
3use strict;
4use lib '../blib/lib','../blib/arch';
5use IO::Socket::Multicast6;
6
7#use constant GROUP => 'ff15::9023';
8use constant GROUP => '239.255.30.29';
9use constant PORT  => '2000';
10
11my $sock = new IO::Socket::Multicast6(
12					LocalAddr=>GROUP,
13					LocalPort=>PORT,
14					)
15|| die "Failed to create multicast socket: $!";
16
17$sock->mcast_ttl(5) || die "Failed to set TTL: $!";
18$sock->mcast_loopback(1) || die "Failed to enable loopback: $!";
19$sock->mcast_dest(GROUP, PORT);
20
21while (1) {
22	my $message = localtime();
23	$sock->mcast_send($message) || die "Couldn't send: $!";
24	print "Sent: $message\n";
25} continue {
26	sleep 4;
27}
28