Perl interface to ntpq

hostname
command:
ntpq -p time1.stupi.se
tally remote refid st t when poll reach delay offset jitter
o pps.peer CHRONOLOG(0) .PPS. 0 l 28 64 377 0.000 0.000 0.000
+ candidat Time4.Stupi.SE .PPS. 1 u 51 128 377 0.335 -0.008 0.028
+ candidat Time10.Stupi.SE .GPS. 1 u 29 128 377 7.465 0.719 0.977
reject NTP.MCAST.NET 0.0.0.0 16 u - 64 0 0.000 0.000 4000.00
reject Time1.Stupi.SE 0.0.0.0 16 u - 1024 0 0.000 0.000 4000.00
+ candidat Time2.Stupi.SE .PPS. 1 u 33 128 377 0.317 -0.002 0.003
reject Time3.Stupi.SE 0.0.0.0 16 u - 1024 0 0.000 0.000 4000.00
+ candidat Time20.Stupi.SE .PPS. 1 u 52 128 377 0.373 0.030 0.035
+ candidat ntp1.sp.se .PPS. 1 u 61 128 377 13.667 1.259 1.106
+ candidat ntp2.sp.se .PPS. 1 u 101 128 377 7.662 0.505 0.566
command:
ntpq -c rv time1.stupi.se
status 20e4 leap_none, sync_unspec/PPS, 14 events, event_peer/strat_chg
processor "i386"
system "FreeBSD3.2-RELEASE"
leap 00
stratum 1
precision -27
rootdelay 0.000
rootdispersion 1.407
peer 49740
refid PPS
reftime d02e7ea0.030be0de Sun, Sep 5 2010 22:40:00.011
poll 7
clock d02e7ebf.26c5197a Sun, Sep 5 2010 22:40:31.151
state 4
phase 0.000
frequency 3.792
jitter 0.000
stability 0.000