use strict;
use File::Find;

my $size = "0";

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

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