my $dbh = DBI->connect(@pref_args) || DBI->connect(@alt_args)
    or die $DBI::errstr;