use Win32::DirSize; # >= 50% faster than file::find
chomp(my @lines = (<DATA>));
my @pathsets = map { [ split ",", $_ ] } @lines;
my @dstats;
push @dstats,join ",",("Directory", "Size", "FileCount", "DirCount");

foreach my $pathset (@pathsets){
    foreach my $path (@{$pathset}){
	if (dir_size($path, my $dstat) == DS_RESULT_OK){
	    my $size = best_convert(my $unit, 
				    $dstat->{HighSize}, 
				    $dstat->{LowSize});
	    my $fcnt = $dstat->{FileCount};
	    my $dcnt = $dstat->{DirCount};
	    push @dstats, join ",",($path, sprintf("%7.4f %s", $size, $unit),$fcnt, $dcnt);
	}
	push @dstats, undef;	
    }
}
map { print } grep { defined } @dstats;

__DATA__
\\ooby\dooby$\stodge,\\ooby\ccc$\etc\lib
\\foo\bar$\wufnik,\\foo\bar$\id