Perl interface to ntpq

hostname
command:
ntpq -p ntp2.ien.it 


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


+ candidat ntp0.inrim.it .CTD. 1 u 25 64 377 0.200 -0.027 0.009


+ candidat ntp1.inrim.it .CTD. 1 u 41 64 377 0.261 0.014 0.882
command:
ntpq -c rv ntp2.ien.it 


status 0218 leap_none, sync_lf_clock, 1 event, event_8


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


processor "i686"


system "Linux/2.6.26-2-686"


leap 00


stratum 1


precision -18


rootdelay 0.000


rootdisp 0.098


refid CTD


reftime d0308cb8.f020e8e7  Tue, Sep  7 2010 12:04:40.938


clock d0308cca.885480ef  Tue, Sep  7 2010 12:04:58.532


peer 47093


tc 6


mintc 3


offset 0.000


frequency -74.299


sys_jitter 0.015


clk_jitter 0.008


clk_wander 0.000


host "ntp2"


group "ntp2"


flags 0x80001


digest "md5"


signature "md5WithRSAEncryption"


update 201005101351


cert "ntp2 ntp2 0x1"


until 201101271445