Select Code to Download

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

transaction $dbh -> {
    ...
}