/usr/share/doc/libio-socket-multicast6-perl/examples/unicast-send.pl is in libio-socket-multicast6-perl 0.03-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | #!/usr/bin/perl
use strict;
use lib '../blib/lib','../blib/arch';
use IO::Socket::Multicast6;
use constant DESTINATION => '127.0.0.1:2000';
my $sock = new IO::Socket::Multicast6(
Domain=>AF_INET,
ReuseAddr=>1);
print "Socket's domain: ".$sock->sockdomain()."\n";
while (1) {
my $message = localtime();
$sock->mcast_send($message,DESTINATION) || die "Couldn't send: $!";
} continue {
sleep 5;
}
|