While (1) {
my @windows = FindWindowLike(0, 'MYPOPUP');
for my $win (@windows) {
print "Found window $win with title '", GetWindowText($win), "'\n";
	my @children = GetChildWindows($win);
	for my $child (@children) {
		my $text = GetWindowText($child);
		next if ($text =~ /^\xff/); # you've found the icon				
		print "Found child $child with text '$text'\n" if ($text =~ /^OK$/)}}}