Average ping time

ping 8.8.8.8 | perl -ne '/time=(\S+)/&&($s+=$1,$c+=1,print($t=localtime,"\t",int($s/$c)," ms$/"))' -