.......
print "\nEnter a string to send to SIP:  ";
$string=<STDIN>;
chomp($string);

print $socket $string;

#$socket->send($string."\n");

#$socket->recv($data,1024);
#print $data;
print <$socket>;