1#!/usr/bin/perl 2 3use strict; 4use lib '../blib/lib','../blib/arch'; 5use IO::Socket::Multicast6; 6 7#use constant GROUP => 'ff15::9023'; 8use constant GROUP => '239.255.30.29'; 9use constant PORT => '2000'; 10 11my $sock = new IO::Socket::Multicast6( 12 LocalAddr=>GROUP, 13 LocalPort=>PORT, 14 ) 15|| die "Failed to create multicast socket: $!"; 16 17$sock->mcast_ttl(5) || die "Failed to set TTL: $!"; 18$sock->mcast_loopback(1) || die "Failed to enable loopback: $!"; 19$sock->mcast_dest(GROUP, PORT); 20 21while (1) { 22 my $message = localtime(); 23 $sock->mcast_send($message) || die "Couldn't send: $!"; 24 print "Sent: $message\n"; 25} continue { 26 sleep 4; 27} 28