$dbh = DBI->connect($dbc, $root, $passwd, {AutoCommit => 0, PrintError => 0}) ;
print "status=".$dbh->{AutoCommit}."\n" ;