my $dbh = DBI->connect("dbi:ODBC:$dsn",
                       {
                        PrintError => 1,
                        RaiseError => 0,
                        AutoCommit => 0
                       }
                      )
    || die "Couldn't open database";