Hello Monks,

This is probably something really simple but I have spend a big amount of time and still can not figure it where I am going wrong.

I am using Net::NTP module to get the time of the reference server. Next I am trying to subtract the time of mu local OS with the reference time to get the offset. But along the way I am probably doing something extremely wrong on my calculation and the number is extremely big.

I would be expecting to see a number close to -0.00841593742370605 sec but instead I get 1687.41735005379. Can someone guide to understand where I am going so wrong.

Sample of code with the process:

#!/usr/bin/perl
use strict;
use warnings;
use Net::NTP;
use Time::HiRes qw( gettimeofday );

my ($seconds, $microseconds) = gettimeofday;
my %response = get_ntp_response("0.se.pool.ntp.org",123);

my $localHostTime = $seconds . "." . $microseconds;
my $offSet = $localHostTime - $response{'Reference Timestamp'};
print "This is what I want: ".$response{'Offset'}."\n";
print "This is what I get: ".$offSet."\n";

__END__
This is what I want: -0.00841593742370605
This is what I get: 1687.41735005379
[download]

Thank you all for your time and effort reading and replying to my question.