use strict;
use Win32::GUI @Win32::GUI::EXPORT_OK;
use Win32::GuiTest @Win32::GuiTest::EXPORT_OK;
use Data::Dumper;

# Purpose Find Management and list all contents.
$Win32::GuiTest::debug = 1;

# Find StrataQA
my @winHandle = FindWindowLike (undef,"Management");
unless (@winHandle != 0 ) { "No Management Window Found!!!\n";}

print "Found Management Window.\n";
SetForegroundWindow ($winHandle[0]);

# List Children
my @winChildren = FindWindowLike ($winHandle[0]);
print "There are ". @winChildren." children\n";



#List Children's Children

foreach my $hChild (@winChildren){
print "For $hChild\n";
my @hGchildren = FindWindowLike ($hChild);
print "There are ". @hGchildren." children for $hChild)\n\n";

}