$rtk_connection= IO::Socket::INET->new('PeerAddr'=>$rtk_ip, 'PeerPort' =>$rtk_port, 'Reuse'=>1, 'Proto'=>'tcp') || warn "Can not create rtk socket on IP $rtk_ip and port $rtk_port: $!\n";