1
0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-02-25 02:51:30 +00:00
2010-08-05 19:53:14 -04:00

18 lines
309 B
Perl
Executable File

#!/usr/bin/perl
use IO::Socket::INET;
my ($ip, $port, $file) = @ARGV;
$ip and $port or die "Usage $0: <ip> <port>\n";
$socket = new IO::Socket::INET->new( PeerPort => $port,
Proto => 'udp',
PeerAddr => $ip);
open(I, $file);
$/ = undef;
my $buf = <I>;
close(I);
$socket->send("$buf\n");