Just don't use "or die" in your code. Use something like

my $cnx = DBI->connect();
if(defined $cnx)
{
# success
}
else
{
# try another address
}
[download]