こんばんは、お返事ありがとうございます。

> #SQL構文設定 
>  $stmt = "update tbl_a set serial = 2 where uid = 1";
> # 準備したSQL構文をデータベース上で実行
>  $rv = $dbh->do($stmt) || die "Cantprepare. Because of $DBI::errstr";

この方法で実験してみました。
値が帰ってきました。
帰ってくる値は、
Rows matched: 2  Changed: 1  Warnings: 0
のChanged:の方のようです。
matched:も取得する方法はないのでしょうか？

以上、よろしくおねがいいたします。