misu

perl -MFile::Find -le 'find sub { -f and $s += -s }, qw(.); print $s'