#!/usr/bin/perl 

use strict;
use warnings;
use Time::AutoRes qw/time/;
use Data::Dumper::Concise;
use Net::NTP qw/get_ntp_response/;

my $host = 'pool.ntp.org';

print Dumper(my $start = time);
my %response = get_ntp_response($host);
print Dumper( %response ), "\n";
print Dumper(my $end = time);
print Dumper(my $elapsed_time = ($end - $start));