use strict;
use warnings;
use IO::Socket::Multicast;

my $socket = new IO::Socket::Multicast() or die "cannot create socket: $!\n";

$socket->mcast_send("this is multicast", '239.1.1.1:9999') or die "error: $!\n";
$socket->close();