sub recvMessage
     {
	          
      $MySocket->recv ($text,1000);#For Recv
      print $text;
      }