use strict;
use warnings;
use Win32::GuiTest qw(:ALL);

my $exe = "C:\\XVI32.exe";

system "start $exe";
sleep(1);
my @windows = ();
@windows = FindWindowLike(undef, "XVI32", "", undef, 0);