my $sth = $dbh->prepare("UPDATE ...;") or die DBI::errstr;
$sth->execute or die DBI::errstr;
printf "Rows: %s\n", $sth->rows;