Perl interface to ntpq

hostname
command:
ntpq -p ntp.certum.pl
tally remote refid st t when poll reach delay offset jitter
+ candidat GENERIC(0) .GPS. 0 l 2 16 377 0.000 0.062 0.015
o pps.peer PPS(0) .PPS. 0 l 13 16 377 0.000 -0.003 0.015
command:
ntpq -c rv ntp.certum.pl
status 21e4 leap_none, sync_atomic/PPS, 14 events, event_peer/strat_chg
version "ntpd 4.1.2@1.892 sob sie 2 16:32:54 CEST 2003 (2)"
processor "i686"
system "Linux2.4.37.9-NANO"
leap 00
stratum 1
precision -16
rootdelay 0.000
rootdispersion 0.451
peer 53725
refid PPS
reftime d0308ac5.041d5c31 Tue, Sep 7 2010 11:56:21.016
poll 4
clock d0308ad2.a9f1bef4 Tue, Sep 7 2010 11:56:34.663
state 4
offset -0.003
frequency 43.700
jitter 0.002
stability 0.005