use File::Recurse;

sub GetFolderSize {
	my $Path = shift;
	my $size = 0;

	recurse { $size += -s } $Path;

	return $size;
}