Perl interface to ntpq

hostname
command:
ntpq -p clock.via.net
tally remote refid st t when poll reach delay offset jitter
* sys.peer GPS_PALISADE(0) .GPS. 0 l 5 16 377 0.000 -0.008 0.008
+ candidat time.sdsc.edu .WWVB. 1 u 15 64 377 14.153 -2.484 0.766
+ candidat ntp-nasa.arc.nasa.gov .GPS. 1 u 45 64 377 2.907 0.003 0.027
x falsetick time.nist.gov .ACTS. 1 u 49 64 377 35.690 -6.772 5.147
command:
ntpq -c rv clock.via.net
status 0444 leap_none, sync_uhf_clock, 4 events, event_peer/strat_chg
version "ntpd 4.2.4p2-o Mon Mar 3 22:50:14 GMT 2008 (1)"
processor "i386"
system "NetBSD/4.0_STABLE"
leap 00
stratum 1
precision -18
rootdelay 0.000
rootdispersion 0.353
peer 7688
refid GPS
reftime d0308c72.281f0727 Tue, Sep 7 2010 12:03:30.156
poll 5
clock d0308c79.c0ea8fa9 Tue, Sep 7 2010 12:03:37.753
state 4
offset -0.008
frequency -44.654
jitter 0.008
noise 0.010
stability 0.000
tai 0