Select Code to Download

    my $dbh = DBI->connect(...);

...
            $sth->execute() or rollback;
        }
    };

    transaction($dbh) {
        # code
    };