#! /usr/bin/perl -w

ping -c 30 nickpc | perl -ne '{next unless $. > 2;$t = (split /\s+/, $_)[7]; $time=(split /=/, $t)[1];print "t=$time\n";$sum += $time; ++$i;} END{$average=$sum/$i; print $sum}'