Select Code to Download

use strict;
use warnings;
...

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

use strict;
use warnings;
...
$socket->recv($data, 1024);
print "received: $data\n";
$socket->close();