Perl interface to ntpq

hostname
command:
ntpq -p clock.nyc.he.net
tally remote refid st t when poll reach delay offset jitter
reject LOCAL(0) LOCAL(0) 10 l 10 64 377 0.000 0.000 0.000
* sys.peer HOPF_S(0) .CDMA. 0 l 2 16 377 0.000 0.000 0.000
command:
ntpq -c rv clock.nyc.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.292
peer 47845
refid CDMA
reftime d03082c4.b734d6a1 Tue, Sep 7 2010 11:22:12.715
poll 4
clock d03082c6.3daf9ebe Tue, Sep 7 2010 11:22:14.240
state 4
phase 0.000
frequency 37.840
jitter 0.000
stability 0.000