eval {
    $dbh->do(...);
    $dbh->do(...);
    $dbh->do(...);
    $dbh->do(...);
}
if($@) {
    handle_error();
}