Revision 2 (by moose, 2008/11/28 19:56:31) initial import 
#!/usr/bin/perl
# server
use strict;
use IO::Socket::Multicast;

use constant DESTINATION => '226.1.1.2:2000';
my $sock = IO::Socket::Multicast->new(Proto=>'udp',PeerAddr=>DESTINATION, Blocking=>0);

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