I've always been a fan of:

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

     return @$db_ref if ($db_ref);
     return;
}
[download]

I'm not sure about the portability of that...