perl -lne '$sum += (stat)[7]}{print $sum'