eval {
  $sth_1->execute;
  $sth_2->execute;
  $sth_3->execute;
};
if ($@) 
  $dbh->rollback; 
} else { 
  $dbh->commit; 
}