#!/usr/bin/perl

use strict;
use warnings;
use open ':std', ':encoding(UTF-8)';

use JSON::XS;
use FileHandle;
use Text::CSV::Easy(qw/csv_build csv_parse/);

use lib '/app/tools/admin/lib';
use Admin::Sys::Host;

my $hosts = Admin::Sys::Host->instance;
print ("$_\n") foreach @{$hosts->by_type('db_server')};