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