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					ReuseAddr=>1)
15|| die "Failed to create multicast socket: $!";
16
17$sock->mcast_add(GROUP) || die "Couldn't join group: $!\n";
18
19while (1) {
20	my $data;
21	next unless $sock->recv($data,1024);
22	print "$data\n";
23}
24