#!/usr/bin/perl -l

use strict;
use warnings;
use Data::Dumper::Concise;
use POE qw(Component::Client::NTP);
#use Time::Stamp -stamps => {format => 'easy'};

my $host = shift @ARGV;

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

$poe_kernel->run();
exit 0;

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

sub _stop {
    print "Refcount was decremented";
    return;
}

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