#!/usr/bin/perl 

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

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

print Dumper(my $start = time);

POE::Session->create(
  package_states => [
	 main => [qw(_start _stop _response)],
    ],
);

$poe_kernel->run();

print Dumper(my $end = time);
print Dumper(my $elapsed_time = ($end - $start));
exit 0;

sub _start {
  POE::Component::Client::NTP->get_ntp_response(
     host => $host,
     event => '_response',
     context => 'word',
  ) or die "Couldn't connect to server: $!";
  return;
}

sub _stop {
    print "Refcount was decremented";
}

sub _response {
    my $packet = $_[ARG0];
    print Dumper( $packet );
}