my $win;
do {
    select(undef, undef, undef, 500);
    $win = FindWindowLike(0, "", "FOO");
} until ($win);