+-------------+-------------+------+-----+---------+-------+
| Field       | Type        | Null | Key | Default | Extra |
+-------------+-------------+------+-----+---------+-------+
| id          | int(11)     | YES  |     | NULL    |       |
| name        | varchar(64) | YES  |     | NULL    |       |
| description | varchar(64) | YES  |     | NULL    |       |
+-------------+-------------+------+-----+---------+-------+

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect( ... );
use transactions $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;

__END__
results:
1 b y
2 c x
3 d w
4 e v
5 f u
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)