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

##</code><code>##

INVITE tel:+1-212-555-2222 SIP/2.0
Via: SIP/2.0/UDP [5555::aaa:bbb:ccc:ddd]:1357;comp=sigcomp;branch=z9hG4bKnashds7
Max-Forwards: 70
............
............