Help for this page
eval { #table A ... else { commit; }
my $dbh = DBI->connect('DBI:MSSQL:database', {AutoCommit => 0}, ) or die "Couldn't connect to database: " . DBI->errstr;