#!/bin/env perl

use warnings;
use strict;

use DBI;
my $db = "****";
my $host = "****";
my $cfg_file = "/tmp/my.cnf";
my ($dsn, $dbh);

print STDERR "Without host=\$host\n";
$dsn = "dbi:mysql:mysql_ssl=1;database=$db;mysql_read_default_file=$cfg_file;mysql_read_default_group=test_group";
$dbh = DBI->connect($dsn);

print STDERR "\nWith host=\$host\n";
$dsn = "dbi:mysql:mysql_ssl=1;database=$db;mysql_read_default_file=$cfg_file;mysql_read_default_group=test_group;host=$host";
$dbh = DBI->connect($dsn);
print "\$dbh = $dbh\n";