sub WaitFor {
    my $win;
    my $title = shift;
    while (!defined $win) {
        select(undef,undef,undef,0.1); # sleep for 1/10th of a second
        ($win) = FindWindowLike(0, $title);
    }
    return $win;
}

##</code><code>##

SetForegroundWindow(WaitFor("Some Title"));