my $status = $dbh->do(....);
if ($status) {
 # OK
} else {
 # Error
}