Select Code to Download

#!/usr/bin/perl
use IO::Socket::Multicast;
...
        next unless $in_sock->recv($data,1024);
        $out_sock->send($data)
}

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