Perl interface to ntpq

hostname
command:
ntpq -p ntp1.ien.it 


tally remote refid st t when poll reach delay offset jitter
* sys.peer GENERIC(0) .CTD. 0 l 46 64 377 0.000 -0.001 0.008


+ candidat 10.10.0.31 .CTD. 1 u 39 64 377 0.218 0.010 0.523


+ candidat 10.10.0.33 .CTD. 1 u 53 64 377 0.279 0.021 1.049
command:
ntpq -c rv ntp1.ien.it 


status 0215 leap_none, sync_lf_clock, 1 event, event_clock_reset


version "ntpd 4.2.6@1.2089-o Mon Apr 12 12:35:28 UTC 2010 (1)"


processor "i686"


system "Linux/2.6.26-2-686"


leap 00


stratum 1


precision -18


rootdelay 0.000


rootdisp 0.124


refid CTD


reftime d02e8975.f02edd75  Sun, Sep  5 2010 23:26:13.938


clock d02e89a4.1f7f64f5  Sun, Sep  5 2010 23:27:00.123


peer 33151


tc 6


mintc 3


offset 0.002


frequency -31.651


sys_jitter 0.010


clk_jitter 0.008


clk_wander 0.000


host "ntp1"


group "ntp1"


flags 0x80001


digest "md5"


signature "md5WithRSAEncryption"


update 201006101413


cert "ntp1 ntp1 0x1"


until 201101271445