Perl interface to ntpq

hostname
command:
ntpq -p time.twc.weather.com
tally remote refid st t when poll reach delay offset jitter
reject LOCAL(0) LOCAL(0) 10 l 41 64 377 0.000 0.000 0.015
* sys.peer HOPF_S(0) .CDMA. 0 l 14 16 377 0.000 0.000 0.015
command:
ntpq -c rv time.twc.weather.com
status 0444 leap_none, sync_uhf_clock, 4 events, event_peer/strat_chg
version "ntpd 4.1.1c-rc2@1.866 Wed Sep 3 01:03:15 UTC 2003 (9)"
processor "i486"
system "Linux2.2.13-DOC"
leap 00
stratum 1
precision -16
rootdelay 0.000
rootdispersion 0.413
peer 50325
refid CDMA
reftime d02e7c6a.078ae31d Sun, Sep 5 2010 22:30:34.029
poll 4
clock d02e7c72.4b8316a0 Sun, Sep 5 2010 22:30:42.294
state 4
offset 0.001
frequency 37.907
jitter 0.015
stability 0.000