my ($mainapp) = FindWindowLike(0, 'FOO');
my $childwin;
while (!$childwin) {
  select(undef, undef, undef, 0.1); # sleep for 1/10th second
  ($childwin) = FindWindowLike($mainapp, 'FOO');
}
# do stuff with $childwin