#!/usr/bin/perl -w
use strict;

use DBI;

my $dbh = DBI->connect('DBI:mysql:database=test', 'root');
my $databases = $dbh->selectall_arrayref('show databases');
my @all_tables;
for my $db (@$databases) {
  $dbh->do("use $db->[0]");
  my $tables = $dbh->selectall_arrayref('show tables');
  push @all_tables, map { $_->[0] } @$tables;
  print @$tables." tables in database '$db->[0]'.\n";
}

print @all_tables." Tables, total.\n";