15 lines
398 B
Perl
Executable File
15 lines
398 B
Perl
Executable File
#!/usr/bin/perl
|
|
# Copyright (c) 2007 Artica Soluciones Tecnologicas S.L.
|
|
use strict;
|
|
use IO::Socket;
|
|
|
|
if ($#ARGV != 2) {
|
|
die "Usage: $0 <address> <port> <command>";
|
|
}
|
|
|
|
my $socket = new IO::Socket::INET(Proto => "udp",
|
|
PeerAddr => $ARGV[0],
|
|
PeerPort => $ARGV[1]) || die "[error] Connect error: $@";
|
|
|
|
$socket->send ($ARGV[2]) || die "[error] Send error: $@";
|