Perl interface to ntpq

hostname
command:
ntpq -p montpelier.ilan.caltech.edu
tally remote refid st t when poll reach delay offset jitter
* sys.peer GPS_VME(0) .USNO. 0 l 2 16 377 0.000 -0.089 0.004
reject 192.5.40.40 .INIT. 16 u - 1024 0 0.000 0.000 4000.00
x falsetick 204.34.198.40 .USNO. 1 u 21 64 377 54.653 -8.995 2.349
command:
ntpq -c rv montpelier.ilan.caltech.edu
status 0444 leap_none, sync_uhf_clock, 4 events, event_peer/strat_chg
version "ntpd 4.2.0@1.1161-r Tue Mar 23 22:34:33 UTC 2004 (19)"
processor "9000/800"
system "HP-UX/B.11.11"
leap 00
stratum 1
precision -18
rootdelay 0.000
rootdispersion 0.656
peer 38692
refid USNO
reftime d030802e.2c9d28e6 Tue, Sep 7 2010 11:11:10.174
poll 4
clock d0308032.07ace21e Tue, Sep 7 2010 11:11:14.029
state 4
offset -0.089
frequency -35.461
jitter 0.005
stability 0.001
hostname "montpelier"
signature "md5WithRSAEncryption"
flags 0x80001
hostkey 3278067670
refresh 3492802918