Perl interface to ntpq

hostname
command:
ntpq -p ntp1.nl.net
tally remote refid st t when poll reach delay offset jitter
reject LOCAL(0) .LOCL. 12 l 17 16 377 0.000 0.000 0.002
+ candidat GENERIC(0) .GPS. 0 l 2 16 377 0.000 0.000 0.002
o pps.peer PPS(0) .PPS. 0 l 16 16 377 0.000 0.000 0.002
command:
ntpq -c rv ntp1.nl.net
status 2154 leap_none, sync_atomic/PPS, 5 events, event_peer/strat_chg
version "ntpd 4.2.0b@1.1438-o Tue Oct 7 10:44:09 UTC 2008 (1)"
processor "i586"
system "Linux/2.6.15.1"
leap 00
stratum 1
precision -19
rootdelay 0.000
rootdispersion 0.476
peer 26080
refid PPS
reftime d02e8e80.cfb612dd Sun, Sep 5 2010 23:47:44.811
poll 4
clock d02e8e91.0c8667f0 Sun, Sep 5 2010 23:48:01.048
state 4
offset 0.000
frequency 93.441
jitter 0.002
noise 0.002
stability 0.002
tai 0
LANTIME lantime/GPS170/M3x/V5.28h/SN030110062080