#!/usr/bin/perl

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

use Net::OpenSSH;

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

my $hostConf = Admin::Sys::Host->instance;

foreach my $host ( @{ $hostConf->all } ) {
    print "~" x 80 . "\n";
    print "$host      \n";
    print "~" x 80 . "\n";

	my $cmd = 'date; chronyc tracking;sudo cat /etc/sysconfig/clock';
    my $ssh = Net::OpenSSH->new( $host, 'master_opts' => ['-q'] );
    my ( $rout, $pid ) = $ssh->pipe_out($cmd);

    while (<$rout>) {
        chomp;
        print "$_\n";
    }

    close $rout;

}