sub DBList
{
     my ($db_ref) = $db->selectcol_arrayref("SHOW DATABASES");

     return @$db_ref if ($db_ref);
     return;
}