my $socket = new IO::Socket::Multicast(Proto=>'udp', PeerAddr=>'239.1.1.1:9999') or die "cannot create socket: $!\n";
$socket->send("this is multicast");