#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Net::NTP qw(get_ntp_response);

$| = 1;

my %response = get_ntp_response(<127.0.0.1>,123);
printf "This is the responce: ".Dumper(\%response)."\n";

__END__

This is the responce: $VAR1 = {
          'Version Number' => 3,
          'Reference Timestamp' => '1410860919.93141',
          'Leap Indicator' => 0,
          'Root Dispersion' => '0.0000',
          'Precision' => -22,
          'Poll Interval' => '3.0000',
          'Stratum' => 2,
          'Originate Timestamp' => '1410862457.72461',
          'Transmit Timestamp' => '1410862457.44422',
          'Mode' => 4,
          'Reference Clock Identifier' => '192.36.143.153',
          'Receive Timestamp' => '1410862457.44415',
          'Root Delay' => '0.0129241943359375'
        };