my $dbh = DBI->connect("DBI:mysql:$database:$db_server", $user, $password); #### my $dbh = DBI->connect("DBI:mysql:$database;host=$db_server", $user, $password, {RaiseError=> 1}) or die $DBI::errstr;