#! perl -slw
use strict;
use threads qw[ yield ];
use threads::shared;
use Thread::Queue;
use Win32::OLE qw[ in with ];

my $Qwork		= new Thread::Queue;
my $Qresults	= new Thread::Queue;

sub worker {
	my $fso = Win32::OLE->new( 'Scripting.FileSystemObject' );
	Win32::OLE->Option( Warn => 0 );

	while( my $folder = $Qwork->dequeue ) {
		last if $folder eq 'DIE_NOW';
		my @folders = $fso->GetFolder( $folder );
		my $size = $folders[0]->size() || 'Permission denied';
		my( $cFiles, $cFolders ) = (0) x 2;

		while( my $sub = pop @folders ) {
			$cFiles 	+= $sub->Files->Count || 0;
			$cFolders	+= $sub->SubFolders->Count || 0;
			for my $subsub ( in $sub->SubFolders ) {
				$cFolders += $subsub->Files->Count || 0;
				push @folders, $_ for in $subsub->SubFolders;
				$cFolders += $subsub->SubFolders->Count || 0;
			}
		}
		$Qresults->enqueue( "$folder - size: $size Files: $cFiles Folders: $cFolders" );
		yield unless $Qwork->pending;
	}
	undef $fso;
	return 1;
}

my @threads = map{ threads->new( \&worker ) } 1 .. @ARGV;

$Qwork->enqueue( @ARGV );

yield until $Qresults->pending();

for( 1 .. @threads ) {
	print $Qresults->dequeue;
}

$Qwork->enqueue( 'DIE_NOW' ) for 1 .. @threads;

$_->join for @threads;


##</code><code>##

P:\test>296404 M:\ S:\ C:\test
C:\test - size: 22582263 Files: 7611 Folders: 352
M:\ - size: 47353164 Files: 995 Folders: 1421
S:\ - size: 99468262 Files: 1994 Folders: 3437