Perl interface to ntpq

hostname
command:
ntpq -p ntps1-0.cs.tu-berlin.de 


tally remote refid st t when poll reach delay offset jitter
  reject LOCAL(0) .LOCL. 12 l 13 16 377 0.000 0.000 0.004


+ candidat GENERIC(0) .GPS. 0 l 7 16 377 0.000 0.002 0.007


o pps.peer PPS(0) .PPS. 0 l 1 16 377 0.000 0.003 0.006


+ candidat ptbtime2.ptb.de .PTB. 1 u 13 64 377 6.029 0.030 0.162


  reject broadcast130-149-16.irb.cs.tu-berlin.de .BCST. 16 u - 64 0 0.000 0.000 0.004
command:
ntpq -c rv ntps1-0.cs.tu-berlin.de 


status 21e4 leap_none, sync_atomic/PPS, 14 events, event_peer/strat_chg


version "ntpd 4.2.0b@1.1438-o Tue Jun 19 09:25:46 UTC 2007 (1)"


processor "i586"


system "Linux/2.6.15.1"


leap 00


stratum 1


precision -18


rootdelay 0.000


rootdispersion 0.278


peer 59577


refid PPS


reftime d02e911d.a52402aa  Sun, Sep  5 2010 23:58:53.645


poll 4


clock d02e911e.d0093928  Sun, Sep  5 2010 23:58:54.812


state 4


offset 0.003


frequency 77.447


jitter 0.006


noise 0.009


stability 0.022


tai 0


access_policy "See http://irb.cs.tu-berlin.de/dienste/ntp/"


contact "service@cs.tu-berlin.de"


coordinates "52.5183N 13.3258E"


location "Technische Universitaet Berlin, D-10586 Berlin, FRG"


service_area "Germany/Europe"


synchronization "Meinberg LANTIME GPS 167/PPS"