use strict;
use File::Recurse;

my $size = "0";

recurse(\&sizedir, "k:/node1");
print "$size\n";
exit;

sub sizedir {
    shift;
	$size += -s "$_";
}