eval { ... mehrere SQL-Anweisungen in Transaktion ...};
if ($@) {
  $db->rollback;
  die $@;
}
else {
  $db->commit;
}