perl获取文件夹的size，包括子文件夹

sub get_size() {
	my $size = 0;
	my $dir = shift;
	find(sub { $size += -s if -f $_ }, $dir);
	return $size;
}

该代码依赖File，所以需要：

use File::Find;