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

##</code><code>##

1) ($Total)=( (qx{dir /s "$UncSharePath"})[-2]=~ /([\d,]+) bytes/ )

2) find(sub { $total += -s }, $dir);