Here's the code. BTW: After a database is created I can access everything else fine using DBI. This is purely a problem of getting ListDBs to work, which I have tried under the DBI, DBD: mysql and Mysql packages. Any suggestions???? TIA

use strict;
use Mysql;

my $host = "";

print "Getting list of database names...\n";
print "Connecting to server now...\n";
my $dbhi = Mysql->Connect($host);
print "Retreiving names now...\n";
my @databases = $dbhi->ListDBs;
print @databases;
foreach (@databases) {
print $_ . "\n";