Select Code to Download

use DBI;
use DBD::mysql; #although not used in this example

my @installed_databases = DBI->data_sources('mysql');

my $drh=DBI->install_driver('mysql');
my @installed_databases= $drh->func($HOST,'_ListDBs');

my @installed_databases = `mysqlshow --user=$USERNAME --password=$PASS
+WORD`;

my $dbh=DBI->connect("DBI:mysql:host=$HOST",$USER,$PASSWORD);
my @installed_databases= $dbh->func('_ListDBs');