break everything

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@720 d0543943-73ff-0310-b7d9-9358b9ac24b2

scripts/multicast/send.pl

@@ -8,8 +8,10 @@ $ip and $port or die "Usage $0: <ip> <port>\n";
 $socket = new IO::Socket::INET->new( PeerPort => $port,
 				     Proto => 'udp',
 				     PeerAddr => $ip);
-
-my $buf = `cat $file`;
+open(I, $file);
+$/ = undef;
+my $buf = <I>;
+close(I);
 
 $socket->send("$buf\n");