#!/usr/bin/perl

use strict;
use lib "$ENV{HOME}/perl/lib" ;
use IO::Socket::Multicast;
my ($group, $port, $ttl, $message) ;
my $hostname = `hostname` ; chomp ($hostname) ;

$| = 1 ;

$group = shift or &usage ;
$port = shift or &usage ;
$ttl = shift or $ttl = 1 ;

my $dest = "$group:$port" ;

use constant DESTINATION => "$group:$port" ;

my $sock = IO::Socket::Multicast->new;
$sock->mcast_ttl($ttl) ;
my $n = 0 ;
while (1) {
  $n++ ;
  $message = $hostname . " $n" ;
  $sock->mcast_send($message,$dest) || die "Couldn't send: $!";
  print "$hostname: $n\n" ;
  sleep 1;
}

sub usage {
  print STDERR "Usage: $0 group port [ttl]\n" ;
  exit ;
}