eval {
         start transaction or die;
         ...
         prepare or die;
         ...
         execute or die;
         ...
         fetch or die;
         ...
     };
     if ($@) {
         rollback;
         die $@;
     }
     else {
         commit;
     }