#!/usr/bin/perl
#
# Sends  command given in command line in a UDP packet to port $port of host @dest_addr
#
# Sent packets can ve verified by 
#         "tcpdump  dst port 7777"
# on remote host

use Socket;

$port = 7778;
@dest_addr = (139, 179, 14, 40);
$data = shift(@ARGV);

$sockaddr = "S n a4 x8";($name,$aliases,$proto) = getprotobyname('udp');
 
chop($hostname = `hostname`);
($name,$aliases,$type,$len,$myaddr) = gethostbyname($hostname);

$broadaddr=pack("C4",@dest_addr);

$me   = pack($sockaddr,&AF_INET, 0,     $myaddr);
$them = pack($sockaddr,&AF_INET, $port, $broadaddr);
 
socket(S, &AF_INET, &SOCK_DGRAM, $proto) || die $!;

setsockopt(S,&SOL_SOCKET,&SO_BROADCAST,1) || die $1;

bind(S, $me) || die $!;

send(S,$data,0,$them) || die $!;