sub hasSubs {
	my $dir = shift;
	my $hasSubs=0;
	if (!($dir eq "\\")) { $dir="$dir\\"; }

	opendir (CURRENT, $dir) || die("Cannot open the dir: $dir");
	foreach my $file (readdir(CURRENT))
		{
		next if (($file eq ".") || ($file eq ".."));
		 if (-d $dir.$file)
		 	{
			 $hasSubs = 1;
			 last;
			}
		}
	closedir CURRENT;
	return $hasSubs;
}

##</code><code>##

my @subDirList=`dir /ad /b \"$dir\"`;
	if ($#subDirList >= 0) { $hasSubs=1; }
	for (my $counter = 0; $counter <= $#subDirList; $counter++)
		{
		 chomp $subDirList[$counter];
		 $hasSubs = 1;
		}