Perl interface to ntpq

hostname
command:
ntpq -p tempus2.gum.gov.pl
tally remote refid st t when poll reach delay offset jitter
+ candidat 192.168.0.2 .PPS. 1 u 20 64 377 0.102 -0.011 0.008
o pps.peer PPS(1) .PPS. 0 l 3 16 377 0.000 -0.015 0.003
command:
ntpq -c rv tempus2.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.318
peer 30891
refid PPS
reftime d0307f93.9d8804cd Tue, Sep 7 2010 11:08:35.615
poll 4
clock d0307f97.204e8cf2 Tue, Sep 7 2010 11:08:39.126
state 4
offset -0.015
frequency 2.345
jitter 0.003
noise 0.002
stability 0.007
tai 0