$::dbh = DBI->connect ("dbi:ODBC:$dsn");