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

##</code><code>##

use warnings;
use strict;
{
my $a;
}
$a=1
print $a;