$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();
$dbh->do(...) or handle_error();

##</code><code>##

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

##</code><code>##

use Fatal qw(open);

eval {
    $dbh->do(...);
    open my $fd, "<", $file;
    # some other stuff
}
if($@) {
    # and here we can't say if it was DBI problem or open
}