#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use Net::NTP qw[ get_ntp_response ];

my %resp;

eval{ 
    %resp = get_ntp_response( '0.poll.ntp.org' ); 1; 
} or die $@;

pp \%resp;

##</code><code>##

C:\test>ntp
{
  "Leap Indicator"             => 0,
  Mode                         => 4,
  "Originate Timestamp"        => "1338194114.66406",
  "Poll Interval"              => "0.0000",
  Precision                    => -22,
  "Receive Timestamp"          => "1338194119.80861",
  "Reference Clock Identifier" => "195.66.241.3",
  "Reference Timestamp"        => "1338192423.2336",
  "Root Delay"                 => "0.00360107421875",
  "Root Dispersion"            => "0.0000",
  Stratum                      => 2,
  "Transmit Timestamp"         => "1338194119.80867",
  "Version Number"             => 3,
}