Perl interface to ntpq

hostname
command:
ntpq -p nist1.datum.com
tally remote refid st t when poll reach delay offset jitter
* sys.peer LOCAL(0) .ACTS. 0 l 46 64 377 0.000 0.000 0.000
command:
ntpq -c rv nist1.datum.com
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 7828
refid ACTS
reftime d030879c.07b416a1 Tue, Sep 7 2010 11:42:52.030
poll 4
clock d03087ca.3b132949 Tue, Sep 7 2010 11:43:38.230
state 0
offset 0.000
frequency 0.000
jitter 0.000
stability 0.000