update

scripts/perl/multicast/recv.pl

@@ -8,6 +8,5 @@ my $socket = IO::Socket::Multicast->new( LocalPort => $port, ReuseAddr => 1 );
 $socket->mcast_add($ip);
 
 while($socket->recv($data,1024)) {
-  $data =~ s/^.{8}//;
   print $data;
 }

scripts/perl/multicast/send.pl

@@ -13,5 +13,5 @@ $/ = undef;
 my $buf = <I>;
 close(I);
 
-$socket->send("00000000$buf\n");
+$socket->send("$buf\n");