$dbh = DBI->connect('dbi:ODBC:DSN', 'user', 'password') || die ("Can't connect to database : ",$DBI::errstr);