Yep, I think this will work, however not sure how!

This is the code that I have done so far

#! c:\perl\bin
$|++;
use strict;
use Win32;
use Win32::GuiTest qw(FindWindowLike GetWindowText SetForegroundWindow
+ SendKeys);
use vars qw /%data/;
$Win32::GuiTest::debug = 0; # Set to "1" to enable verbose mode
$data{apps_list} = shift @ARGV;
$data{host} = Win32::NodeName();
system (cls);
print "\nThis machine is ". $data{host};
print "\n\nPath to apps list => ". $data{apps_list}."\n";
open (LST, "$data{apps_list}") || die "$! : File was not found\n";
chomp  (@{$data{Go_scripts}} = <LST>);
for my $item (@{$data{Go_scripts}})
{
    print "\n$item\n";
    system ($item);
    my @win =FindWindowLike(0, "^Go", "");
    for (@win) {
      print "$_>\t'", GetWindowText($_), "'\n";
      SetForegroundWindow($_);
      );
  }
    #print "$^E, $!\n".Win32::FormatMessage(Win32::GetLastError());
    Win32::AbortSystemShutdown($data{host});
    print "\nDone\n";
}
[download]

System($item) will run the 'Go' scripts for me, I would only get a windows message box if the installation was NOT successfull. Other than that I do not get a confirmation of successfull installation. So, if the installation did not begin, then a message box appears titled GO, and starts with the string "the Go script did not start due to...."

Can someone please show me how can I detect that this window has popped up? and be able to send a mouse click to the ok button in that message box so the script can continou?

TIA