use DBI;
use Time::Local;
use strict;

my $dbh;

if(!defined $dbh)
{

    if ( $dbh = DBI->connect_cached("DBI:mysql:database=DATABASE_NAME:MAIN_DATABASE_IP", "USER", "PASSWORD!", {RaiseError => 0} ) ) {

      print STDERR "success";

    } else {


       print STDERR "error:  $DBI::errstr\n";

       if ( $dbh = DBI->connect_cached("DBI:mysql:database=DATABASE_NAME:SECONDARY_DATABASE_IP", "USER", "PASSWORD!") ) {

             print STDERR "success second db";

          } else {

            print STDERR "error:  $DBI::errstr\n";

          }

    }

  }