But $sth->rows gives a count even without a fetch. So:

my $sth=$dbh->prepare(qq{SELECT * FROM foo WHERE bar = baz})
$sth->execute;
print $sth->rows, "matched the query";