Mysql 데이터베이스 리스트

#!/usr/bin/perl  

use Mysql;
$host = "localhost";
$database = "test";
$user = "testuser";
$pass = "password";  

 

$connect = Mysql->connect($host, $database, $user, $pass);  

 

@databases = $connect->listdbs;

 

foreach $database (@databases) {        
    print "$database\n";
}