にしかわともうします。

いつも質問ばかりで申し訳ないのですが、おしえてください。

現在、Linux上でMYSQL+DBI+Perlでプログラムを組んでいます。

たとえば、SQLシェルで、
mysql> update tbl_a set serial = 2 where uid = 1;
とした場合
--
Query OK, 1 row affected (0.46 sec)
Rows matched: 2  Changed: 1  Warnings: 0
--
といった結果が返ってくるとします。
上記の場合、マッチしたのが1件で変更したのが、1件とわかるのですが、
Perl上でその値を取得する場合はどのようにすればいいのでしょうか？

現状は、よい方法がわからない為、

#### マッチした件数 #####
$select_sql = q(select count(*) from tbl_a where uid = 1);
$sth = $dbh->prepare("$select_sql") or die &error('SQL定義エラー');
$sth->execute() or die &error('SQL実行エラー');
@result = $sth->fetchrow_array();
$match_num = @result[0];

#### 変更した件数 #####
$select_sql = q(select count(*) from tbl_a where uid = 1 and serial !=2);
$sth = $dbh->prepare("$select_sql") or die &error('SQL定義エラー');
$sth->execute() or die &error('SQL実行エラー');
@result = $sth->fetchrow_array();
$chenge_num = @result[0];

と、言った形で、先に、selectでマッチするものを探して、件数を割り出し、
その後アップデートをかけています。

スマートな方法があれば、おしえていただけないでしょうか。
よろしくおねがいいたします。