#!/usr/bin/perl

use strict;
#use warnings;
use IO::Socket::Multicast6;

my $s = IO::Socket::Multicast6->new(
  Domain    => AF_INET6,
  LocalPort => 546,
) || die $!;

$s->mcast_if($ARGV[0]) || die $!;
$s->mcast_dest('[ff02::1:2]:547');
$s->mcast_send("test") || die $!;