#!/usr/bin/perl
use IO::Socket::Multicast;
use strict;


my $multicast_ip = '232.0.64.4';
my $multicast_port = '9100';
my $if = 'eth1';
my $in_sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>$multicast_port);
$in_sock->mcast_add($multicast_ip, $if) || die "\nCouldn't set group: $!\n";

my $dest_ip = '10.10.20.20:9100';
my $out_sock = IO::Socket::Multicast->new(Proto=>'udp',PeerAddr=>$dest_ip);

while (1) {
        my $data;
        next unless $in_sock->recv($data,1024);
        $out_sock->send($data)
}

##</code><code>##

my $in_sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>$multicast_port);