Perlメモ: ディレクトリ内のファイルの合計サイズを調べる

use File::Find;

my $total_size = 0;
sub sum_size {
    $total_size += -s if -f;
}

find(\&sum_size, '.');
print "Total size is $total_size\n";