#!/usr/bin/perl -w

use strict;
use warnings;
use IO::Socket;
use IO::Socket::Multicast;

my $s = IO::Socket::Multicast->new(
  PeerAddr => "224.0.0.5",
  Type     => SOCK_RAW,
  Proto    => 89,
) || die $!;

#$s->mcast_add("224.0.0.66");

for (my $i = 0; $i < 10; $i++) {
  $s->send("hello, world\n");
  sleep(1);
}