my  $dbh = DBI->connect("dbi:ODBC:$dsn", $usr, $pwd);