You may want to look at three modules from CPAN which address DBI failover: DBD::Multiplex, DBIx::DBCluster, and DBIx::HA.

You'll need to spend some time to evaluate each one to see if it addresses your purposes, but depending on your requirements, this may be much easier than writing your own from scratch.