my $socket = new IO::Socket::INET (
                                  PeerAddr  => $server_ip,
                                  PeerPort  => $server_port,
                                  Proto => 'tcp',
                               )