Perl interface to ntpq

hostname
command:
ntpq -p time-b.timefreq.bldrdoc.gov
tally remote refid st t when poll reach delay offset jitter
* sys.peer LOCAL(0) .ACTS. 0 l 5 64 377 0.000 0.000 0.000
command:
ntpq -c rv time-b.timefreq.bldrdoc.gov
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.2-RELEASE"
leap 00
stratum 1
precision -29
rootdelay 1.300
rootdispersion 2.000
peer 50372
refid ACTS
reftime d030820b.5ec42bba Tue, Sep 7 2010 11:19:07.370
poll 4
clock d0308217.f5fd92d7 Tue, Sep 7 2010 11:19:19.960
state 0
offset 0.000
frequency 0.000
jitter 0.000
stability 0.000