Имеющиеся базы
Пример
use Msql;
my $db = Msql->connect;
my @databases = $db->listdbs;
print " Имеющиеся базы данных:\n\n" . join("\n",@databases);
Справочник и примеры языка PHP
Пример
use Msql;
my $db = Msql->connect;
my @databases = $db->listdbs;
print " Имеющиеся базы данных:\n\n" . join("\n",@databases);