#!/usr/bin/perl 
use warnings;
use strict;

use Socket;

my $proto = getprotobyname('udp');
my $host  = inet_aton('localhost');
my $port  = 501;

socket CLIENT, PF_INET, SOCK_DGRAM, $proto or die "Unable to create socket: $!";

my $servaddr = sockaddr_in($port, $host);
my $num=1;
my $dnum;

for (my $i=102; $i <= 105; $i++) {

	send CLIENT, "EVENT 9 1 *$i ,L-02", 0, $servaddr or die "Send: $!\n";
	my $message;
	recv CLIENT, $message, 1024, 0;
	print "Response was: $message\n";


}
