perl -MFile::Find -le 'find sub{return if/^\.$/;$x+=-s$_},shift;print$x' some_dir