Perl interface to ntpq

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


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


+ candidat GENERIC(0) .GPS. 0 l 10 16 377 0.000 -0.015 0.000


o pps.peer PPS(0) .PPS. 0 l 12 16 377 0.000 -0.015 0.000


  reject broadcast130-149-16.irb.cs.tu-berlin.de 0.0.0.0 16 u - 64 0 0.000 0.000 4000.00


x falsetick ptbtime1.ptb.de .PTB. 1 u 12 64 377 8.470 -0.671 0.739
command:
ntpq -c rv ntps1-1.cs.tu-berlin.de 


status 21f7 leap_none, sync_atomic/PPS, 15 events, event_clock_excptn


version "ntpd 4.1.1a@1.791 Mon Oct 28 16:06:13 CET 2002 (1)"


processor "i386"


system "FreeBSD4.7-RELEASE"


leap 00


stratum 1


precision -27


rootdelay 0.000


rootdispersion 0.428


peer 7470


refid PPS


reftime d02e8d90.bef16e93  Sun, Sep  5 2010 23:43:44.745


poll 4


clock d02e8d9c.efb3bab9  Sun, Sep  5 2010 23:43:56.936


state 4


offset -0.015


frequency 0.030


jitter 0.002


stability 0.001


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 GPS 167/PPS"