use DBI;
@driver_names = DBI->available_drivers;
print "@driver_names\n";
$DSN="DBI:mysql:database=test";
my $dbi=DBI->connect($DSN,"","") or die "Can't connect\n";
my $sth=$dbi->prepare("SHOW DATABASES");
$sth->execute();
$databases=$sth->fetchall_arrayref;
for(@$databases){print "@$_\n"}
$sth->finish();
$dbi->disconnect;
exit;