#!/usr/bin/perl
 # server
 use strict;
 use IO::Socket::Multicast;
 use Getopt::Long;

 my ($group,$port);
  GetOptions(
        "g=s" => \$group,
        "p=s" => \$port
  );
  
 
 #use constant DESTINATION => '226.1.1.2:2000'; 
 my $sock = IO::Socket::Multicast->new(Proto=>'udp',PeerAddr=>$group,PeerPort=>$port);

 while (1) {
   #my $message = localtime;
   my $message = "DATA";
   #$message .= "\n" . `who`;
   #$message .= "\n";
   $sock->send($message) || die "Couldn't send: $!";
 } continue {
  sleep 1;
 }