#!/usr/bin/perl

use strict;
use lib "$ENV{HOME}/perl/lib" ;
use IO::Socket::Multicast;
my ($group,$port,$ttl) ;
my $data;
$group = shift or &usage ;
$port = shift or &usage ;
$ttl = shift or $ttl = 1 ;
$| = 1 ;

my $sock = IO::Socket::Multicast->new(LocalPort=>$port);
$sock->mcast_add($group) || die "Couldn't set group: $!\n";

while (1) {
  next unless $sock->recv($data,1024);
  print "$data\n";
}

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