my $dbh = DBI->connect(  "dbi:ODBC:$db", "$login", "$password",
                        { RaiseError => 1,
                          AutoCommit => 1 } )
                 || err("Database Error","Can't connect to database $db: ".
                             "$DBI::errstr",3);