$dbh = DBI->connect($dbc, $root, $passwd, {AutoCommit => 0, RaiseError => 1}) ;
$dbh->{'AutoCommit'}
$dbh->{'AutoCommit'} = 0;
if ($dbh->{'AutoCommit'}) {
     print "An error occurred!\n" ;
}
print "status=".$dbh->{'AutoCommit'}."\n" ;