#!/usr/bin/perl

use IO::Socket::INET;

$| = 1;

my ($socket,$received_data,$peeraddress,$peerport);

$socket = new IO::Socket::INET (LocalPort => '26',Proto => 'udp') or die "ERROR in Socket Creation : $!\n";

while(1) {

	$socket->recv($recieved_data,1024);

	$peer_address = $socket->peerhost();
	$peer_port = $socket->peerport();

	print "\n($peer_address, $peer_port) said : $recieved_data";

	$data = "data from server\n";

	print $socket "$data";

}

$socket->close();