Help for this page
eval { $sth_1->execute; ... } else { $dbh->commit; }
ALTER PROCEDURE sp @foo VARCHAR(250), @bar VARCHAR(250) AS ... UPDATE someother nonsense COMMIT TRAN