I'm not familiar with DBIx::Recordset but can't you just do

my $sth = $dbh->prepare('select count(*) from table_name');
$sth->execute;
my ($count) = $sth->fetchrow;
$sth->finish;
print "count: $count\n";
[download]