Perl interface to ntpq

hostname
command:
ntpq -p clock.sjc.he.net
tally remote refid st t when poll reach delay offset jitter
reject LOCAL(0) LOCAL(0) 10 l 23 64 377 0.000 0.000 0.000
* sys.peer HOPF_S(0) .CDMA. 0 l 14 16 377 0.000 0.000 0.000
command:
ntpq -c rv clock.sjc.he.net
status 0444 leap_none, sync_uhf_clock, 4 events, event_peer/strat_chg
version "ntpd 4.0.99k_23 Mon Sep 16 14:00:40 PDT 2002 (84)"
processor "i486"
system "Linux2.2.13-DOC"
leap 00
stratum 1
precision -16
rootdelay 0.000
rootdispersion 0.475
peer 28693
refid CDMA
reftime d0308e62.59a048e0 Tue, Sep 7 2010 12:11:46.350
poll 4
clock d0308e70.ec298cc1 Tue, Sep 7 2010 12:12:00.922
state 4
phase 0.000
frequency 28.372
jitter 0.000
stability 0.000