use warnings;
use Win32::GuiTest qw(:ALL);
use Win32::GuiTest::TreeView;
use Data::Dumper;
use Win32;

# Get the handle of window object
my @SEHandle = FindWindowLike(undef,$Title,'SysTreeView32','32783',und
+ef);
if (!$SEHandle[0]) { return 0; }
sleep 2;

# Find the number of child handles and store in an array
my @ChildTree = Win32::GuiTest::TreeView::GetChildList_H($SEHandle[0])
+;
Win32::MsgBox("@ChildTree");
foreach my $Child (@ChildTree) {
    my $Text = Win32::GuiTest::TreeView::GetItemText($SEHandle[0],$Chi
+ld);
    Win32::MsgBox("Text = $Text");
}