my $dbh = DBI->connect('DBI:ODBC:db1') or print $DBI::errstr;