$dbh = DBI->connect('DBI:ODBC:odbcSourceName', 'username', 'password') 
  || die $dbh->errstr;