perl -wne '$sum += (stat)[7]}{print "$sum\n"'