Perl interface to ntpq

hostname
command:
ntpq -p tempus1.gum.gov.pl
tally remote refid st t when poll reach delay offset jitter
+ candidat ntp1.tp.pl .ATOM. 1 u 44 64 377 0.640 -0.018 0.044
+ candidat tempus2.gum.gov.pl .PPS. 1 u 22 64 377 0.559 -0.001 0.021
o pps.peer PPS(1) .PPS. 0 l 9 16 377 0.000 0.001 0.001
command:
ntpq -c rv tempus1.gum.gov.pl
status 21b4 leap_none, sync_atomic/PPS, 11 events, event_peer/strat_chg
version "ntpd 4.2.4p8@1.1612-o Tue Mar 2 13:29:33 UTC 2010 (5)"
processor "i686"
system "Linux/2.4.19-NANO"
leap 00
stratum 1
precision -20
rootdelay 0.000
rootdispersion 0.345
peer 53530
refid PPS
reftime d03094e5.6bb82bea Tue, Sep 7 2010 12:39:33.420
poll 4
clock d03094ee.5baf90ad Tue, Sep 7 2010 12:39:42.358
state 4
offset 0.001
frequency 5.365
jitter 0.001
noise 0.002
stability 0.003
tai 0