Select Code to Download

$|++;
use strict;
...
       #
        Win32::AbortSystemShutdown($data{host});
}

While (1) {
my @windows = FindWindowLike(0, 'MYPOPUP');
...
        my $text = GetWindowText($child);
        next if ($text =~ /^\xff/); # you've found the icon           
+     
        print "Found child $child with text '$text'\n" if ($text =~ /^
+OK$/)}}}