#!/usr/bin/perl

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

my $sock = IO::Socket::Multicast->new(
    LocalPort => 7070,
    ReuseAddr => 1
) or die "Cannot create client\n";;

$sock->mcast_add("239.192.1.1") || die "Cannot set group: $!\n";

my $data;
while (1) {
    $sock->recv($data,1024);
    my $peer_addr = $sock->peerhost();
    my $peer_port = $sock->peerport();
    print "($peer_addr:$peer_port): $data\n"
}