#!/usr/bin/perl
use IO::Socket::INET;

# flush after every write
$| = 1;

my ($socket, $received_data);

$socket = new IO::Socket::INET (
	LocalPort => defined($ARGV[0]) ? $ARGV[0] : '1098',
	Proto => 'udp'
) or die "ERROR in Socket Creation : $! \n";

while(1) {
	$socket->recv($recieved_data, 100);
	$socket->send($recieved_data);
}

$socket->close();

use Socket;
$host="IP-adress";
$port="1098";
socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname('udp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send(SOCK, "1", 0);
@data=<SOCK>;
close(SOCK);
print @data;