Perl interface to ntpq

hostname
command:
ntpq -p clock.fmt.he.net
tally remote refid st t when poll reach delay offset jitter
* sys.peer SHM(1) .PPS. 0 l 12 16 377 0.000 0.002 0.003
reject LOCAL(0) .LOCL. 3 l 37 64 377 0.000 0.000 0.001
reject 10.200.208.2 .GPS. 1 u 7 16 0 0.817 -74.848 0.000
+ candidat clock.sjc.he.net .CDMA. 1 u 5 16 377 0.001 -1.200 1.348
+ candidat clock.nyc.he.net .CDMA. 1 u 7 16 367 76.843 -2.798 0.058
x falsetick SHM(0) .GPS. 0 l 16 16 377 0.000 7.962 0.187
command:
ntpq -c rv clock.fmt.he.net
status 09f4 leap_none, sync_telephone, 15 events, event_peer/strat_chg
version "ntpd 4.2.4p4@1.1520-o Tue Jan 6 15:51:34 UTC 2009 (1)"
processor "i686"
system "Linux/2.6.24-23-server"
leap 00
stratum 1
precision -20
rootdelay 0.000
rootdispersion 0.428
peer 57466
refid PPS
reftime d03086e7.d0b8eb85 Tue, Sep 7 2010 11:39:51.815
poll 4
clock d03086f5.03a72d7b Tue, Sep 7 2010 11:40:05.014
state 4
offset 0.002
frequency -14.568
jitter 0.003
noise 0.002
stability 0.000
tai 0