multi transaction (Object $object, &block) {
    ...;
    block();
    ...;
}

##</code><code>##

transaction $dbh -> {
    ...
}