Пример

use Msql;

my $db = Msql->connect;

my @databases = $db->listdbs;

print "Имеющиеся базы данных:\n\n" . join("\n",@databases);