use DBI;
use strict;
use warnings;

my $dbi;

my @databases = ('dbi:ODBC:weeb', 'dbi:ODBC:web');
for (@databases) {
	print "attempt connect to database $_\n";
	if ($dbi = DBI->connect($_,"","",{AutoCommit=>1})) {
		print "connected to database $_\n";
		last;
	}
}