いまさらDBD::mysqlのPODを読んだ
@databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, password => $pass});
へー。
@databases = DBI->data_sources("mysql", {"host" => $host, "port" => $port, "user" => $user, password => $pass});
へー。