use warnings;
use Transactions;
use DBI;

my $dbh = DBI->connect("dbi:SQLite:db.dat");

our $T = $dbh;

$dbh->do('delete from foo');

transaction {
    for (1..10) {
        my $sth = $dbh->prepare('insert into foo values(?,?,?)');
        $sth->execute($_, chr(ord('a')+$_), chr(ord('z')-$_));
        rollback if $_ == 5;
    }
};

print map "@$_\n", @{$dbh->selectall_arrayref('select * from foo')};
$dbh->disconnect;