use strict;
use warnings;

my $cmd = "/usr/sbin/ntpq -p";
my $offset = (split(/\s+/, (grep(/^\*/, `$cmd`))[0]))[8];

print "$offset\n";