Perl interface to ntpq

hostname
command:
ntpq -p ntp.nasa.gov
tally remote refid st t when poll reach delay offset jitter
* sys.peer GPS_PALISADE(0) .GPS. 0 l 20 32 377 0.000 -0.003 0.005
+ candidat clock.via.net .GPS. 1 u 65 64 377 2.967 0.013 0.023
+ candidat montpelier.ilan.caltech.edu .USNO. 1 u 21 64 377 44.441 0.299 1.248
x falsetick timekeeper.isi.edu .GPS. 1 u 27 64 277 77.500 14.045 9.623
command:
ntpq -c rv ntp.nasa.gov
status 0474 leap_none, sync_uhf_clock, 7 events, event_peer/strat_chg
version "ntpd 4.1.1a@1.791 Fri Aug 23 14:58:05 PDT 2002 (1)"
processor "i386"
system "FreeBSD4.6.2-RELEASE"
leap 00
stratum 1
precision -20
rootdelay 0.000
rootdispersion 0.776
peer 2396
refid GPS
reftime d02e823e.5699ec3e Sun, Sep 5 2010 22:55:26.338
poll 5
clock d02e8254.02383e68 Sun, Sep 5 2010 22:55:48.008
state 4
offset -0.003
frequency 14.615
jitter 0.004
stability 0.000