Perl interface to ntpq

hostname
command:
ntpq -p cronos.cenam.mx
tally remote refid st t when poll reach delay offset jitter
* sys.peer JJY(0) .GPS. 0 l 57 64 377 0.000 -0.008 0.008
reject ACTS_NIST(3) .ACTS. 0 l - 64 0 0.000 0.000 4000.00
command:
ntpq -c rv cronos.cenam.mx
status 0444 leap_none, sync_uhf_clock, 4 events, event_peer/strat_chg
version "ntpd 4.1.0-a Fri Mar 28 16:36:07 PST 2003 (196)"
processor "i686"
system "Linux2.4.20-13.8"
leap 00
stratum 1
precision -17
rootdelay 0.000
rootdispersion 1.823
peer 4940
refid GPS
reftime d0308210.5e7c8d19 Tue, Sep 7 2010 11:19:12.369
poll 6
clock d0308249.ca77a2ce Tue, Sep 7 2010 11:20:09.790
state 4
offset -0.008
frequency -107.422
jitter 0.011
stability 0.000