Perl interface to ntpq

hostname
command:
ntpq -p utcnist.colorado.edu
tally remote refid st t when poll reach delay offset jitter
* sys.peer LOCAL(0) .ACTS. 0 l 57 64 377 0.000 0.000 0.000
command:
ntpq -c rv utcnist.colorado.edu
status 0534 leap_none, sync_local_proto, 3 events, event_peer/strat_chg
version "ntpd 4.1.1b@1.829 Sat Aug 9 06:44:47 MDT 2008 (20)"
processor "i386"
system "FreeBSD6.1-RELEASE"
leap 00
stratum 1
precision -29
rootdelay 1.300
rootdispersion 2.000
peer 64820
refid ACTS
reftime d0308040.3f0910ed Tue, Sep 7 2010 11:11:28.246
poll 4
clock d0308069.5a673608 Tue, Sep 7 2010 11:12:09.353
state 0
offset 0.000
frequency 0.000
jitter 0.000
stability 0.000