perl -le '$size += (-f $_ ? -s _ : 0) for (<*>); print $size'