my $dbh = DBI->connect("DBI::ODBC ... etc $dsn") 
    or die("Couldn't connect to $dsn: $DBI::errstr\n");