my $sock = new IO::Socket::INET(
            PeerAddr => $server,
            PeerPort => 9000,
            Proto    => 'tcp',
        );

##</code><code>##

my $dsn = "DBI:Proxy:hostname=$server;port=$port;dsn=DBI:ODBC:" . $self->get_db_name();
$dbh = DBI->connect(
            $dsn,
            $self->get_db_user(),
            $self->get_db_password(),
            {
                RaiseError => 1,
                PrintError => 0
            }
        );