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