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