Select Code to Download

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;

sub dbconnect {
    my $engine = shift;
...
    my $dbh    = DBI->connect( $dsn, $dbuser, $dbpw ) || confess;
    return $dbh;
}