use
strict;
use
warnings;
use
Data::Dumper;
my
$host
=
shift
or
die
"Please specify a host name to query\n"
;
POE::Session->create(
package_states
=> [
main
=> [
qw(_start _response)
],
],
);
$poe_kernel
->run();
exit
0;
sub
_start {
POE::Component::Client::NTP->get_ntp_response(
host
=>
$host
,
event
=>
'_response'
,
);
return
;
}
sub
_response {
my
$packet
=
$_
[ARG0];
Dumper(
$packet
);
return
;
}