sub dbconnect {
    my $engine = shift;
    my $dsn
      = q{dbi:mysql:database=database;}
      . q{host=} . $engine
      . q{;port=3306}
      . q{;mysql_ssl=1}
      . q{;mysql_ssl_ca_file=} . $mysql_ssl_ca_file
      . q{;mysql_ssl_client_cert=} . $mysql_ssl_cert_file
      . q{;mysql_ssl_client_key=} . $mysql_ssl_key_file
      . q{;mysql_ssl_cipher=} . $SSL_CIPHER;
    my $dbuser = q{supportclient};
    my $dbpw   = q{};
    my $dbh    = DBI->connect( $dsn, $dbuser, $dbpw ) || confess;
    return $dbh;
}