perl -F'\t' -lanE'$sum += $F[3]; END { say $sum/$. }'