my $dbh = DBI->connect( "dbi:ODBC:RETQC_SQL", "sa", "",
 {RaiseError => 1, PrintError => 1, AutoCommit => 0} ) or
die "Unable to connect: $DBI::errstr\n";