my $dbh = get_db(); # with RaiseError => 1
eval {
  my $some_sql = get_some_sql_code();
  $dbh->do($some_sql);

  my $another_sql = get_another_sql_code();
  $dbh->do($another_sql);

  ... more query execution
};
die $@ if $@;