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