perl -MFile::Find -le 'find sub{$x+=-s$_},shift;print$x' some_dir