use strict;
use File::Recurse;

my $size = "0";

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

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

##</code><code>##

47:>if (-d _) {
48:>  next if (-l $path && !$File::Recurse::FOLLOW_SYMLINKS);
49:>  $ret = recurse($exe,$path,$context,$level+1);
50:>  last if ($ret == -2);
49:>}