#!/usr/bin/perl

use strict;
use DBI;

#DBI->trace(5);
my $dbh = DBI->connect(
                        "DBI:mysql:database=_DATABASE_;host=_HOST_;
                        mysql_ssl=1;
                        mysql_ssl_client_key=/etc/mysql/certs/client-key.pem;
                        mysql_ssl_client_cert=/etc/mysql/certs/client-cert.pem;
                        mysql_ssl_ca_file=/etc/mysql/certs/ca-cert.pem",
                        '_SSL_USER_',
                        '_SSL_USER_PWD_'
                  ) || die DBI->errstr;
exit(0);