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