my $mysql_ssl_ca_fh = File::Temp->new( UNLINK => 1, SUFFIX => '.pem');
my $mysql_ssl_ca_file = $mysql_ssl_ca_fh->filename;
print $mysql_ssl_ca_fh $SSL_CA_FILE_STRING;

##</code><code>##

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;
}