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

use warnings;
use strict;

use IO::Socket::Multicast6;

# create a new IPv6 UDP socket ready to read datagrams on port 1100
my $s = IO::Socket::Multicast6->new(Domain=>AF_INET6, Type=>SOCK_DGRAM, PeerPort=>1100, PeerAddr => "FF15::0561");

# Add an IPv6 multicast group
$s->mcast_add('FF15::0561');

# now receive some multicast data
my $data = '0'x16384;
$s->send($data,16384);