各テーブルにレコードが何件入ってるか調べる

#!/usr/bin/perl
use DBI;

my $connect_info = [
    'dbi:mysql:dbhost=foo;dbname=bar',
    'root',
];

my $dbh = DBI->connect(@{$connect_info});
my $tables = $dbh->table_info->fetchall_hashref('TABLE_NAME');
for (keys %{$tables}) {
    my $dbname = $tables->{$_}->{'TABLE_SCHEM'};
    my $row = $dbh->selectrow_hashref("select count(*) as count from $_");
    warn "$dbname: $_ : $row->{count}";
}

なんかこんな感じっぽい。