Personally, I don't like the package global. I'd prefer something like

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

    transaction $dbh, {
        for (1..10) {
            my $sth = $dbh->prepare(...);
            $sth->execute() or rollback;
        }
    };
[download]

or even

    transaction($dbh) {
        # code
    };
[download]

to make it look like a for block. I have no idea how to make that work, though.

Also, an additional idea would be to catch die's in the handler and make them execute rollback (which would make your transactions a bit like exceptions).