#!/usr/bin/perl
use warnings;
use strict;
use DBI;

my $options = {
    user => 'root',
    password => 'foo',
    host => 'localhost',
    port => 3306,
};
my @databases = DBI->data_sources('mysql', $options);

$, = "\n";
print @databases, "\n";