my $searchString = 'Connecting to';
    
for (FindWindowLike()) {        
    my $title = GetWindowText($_);    
    next unless ( $title );
    if( $title =~ /^$searchString/i )  { 
        print "$title\n"; 
#        SetForegroundWindow($windows[0]);
        SendKeys('$username');
		SendKeys("{TAB}");
		SendKeys("$pass");
		SendKeys("{ENTER}");
    }
}