use IO::Socket::INET;
$socket = new IO::Socket::INET (
                                  PeerAddr  => '172.16.0.30',
                                  PeerPort  =>  6001,
                                  Proto => 'tcp',
                               )                
or die "Couldn't connect to Server\n";
while ($socket) 
{
print "\nEnter a string to send to SIP:  ";
$string=<STDIN>;
chomp($string);

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

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

}