perl -E '$r+=$_ for<>;say$r/$.'