#file_test.pl
use Win32::OLE qw[in with];
my $fs = Win32::OLE->CreateObject('Scripting.FileSystemObject');
my $fCount =0;
my $sCount =0;
my @folders = $fs->GetFolder("$ARGV[0]" );
eval
{ 
	while( @folders ) 
	{
		my $folder = pop @folders;
		$fCount += $folder->Files->Count; 
		$sCount += $folder->SubFolders->Count; 
		for my $subFolder ( in $folder->SubFolders ) 
		{
			$fCount += $subFolder->Files->Count;
			push @folders, $_ for in $subFolder->SubFolders ;
			$sCount += $subFolder->SubFolders->Count;
		}
	}
	print "Files: $fCount, folders: $sCount";		
};