use File::Find;

my $total_size = 0;
find({sub $total_size += -s if -f}, '.');
print $total_size, "\n";