# Client Program

use IO::Socket::INET;

print ">> Client Program <<";



# Create a new socket

$MySocket=new IO::Socket::INET->new(PeerPort=>36999,Proto=>'udp',PeerAddr=>'optimus.ethz.ch');


# Send messages

$def_msg="Enter message to send to server : ";

print "\n",$def_msg;

while($msg=<STDIN>)

{

	chomp $msg;

	if($msg ne '')

	{

		print "nSending message '",$msg,"'";

		if($MySocket->send($msg))

		{

			print ".....<done>","\n";

			print $def_msg;

		}

	}

	else

	{

		# Send an empty message to server and exit

		$MySocket->send('');

		exit 1;

	}

}
