$ perl -MFile::Find -e 'find (sub{ $sum += -s unless /^\.\.?$/ }, @ARGV); print "$sum\n"' -- ./