< 1)use Win32::GuiTest qw/:ALL/; 2)$Win32::GuiTest::debug = 1; 3) my $fgWindow1= 0; # Foreground Window 4) system("c:\\MyApp\\abcd.exe"); 5) $fgWindow1=WaitWindowLike( 0 , "^MyApp Administration"); 6) SetForegroundWindow($fgWindow1); 7) my @Mwnd= FindWindowLike(0 , "^MyApp Administration"); 8) SetForegroundWindow( $Mwnd[ 0 ]); 9) if( not @Mwnd ){ 10) printf( "Cannot find window with title/caption MyApp Administration \n");} 11) else{ 12) printf( "Window handle of MyApp application is %x \n", $Mwnd[ 0 ] ); } 13) if(IsWindowVisible($Mwnd[ 0 ])) { 14) printf("Application launched successfully \n"); } 15) else { 16) printf("Application launching is failed \n"); } >