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;
	}
}