Select Code to Download

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

use warnings;
use strict;
...
}
$a=1
print $a;