http://www.perlmonks.org?node_id=361271
Public ScratchpadDownload, Select Code To D/L
Just some junk that worked for me 
#!/usr/bin/perl -w
use strict;
#adstuff.pl v .01
#01/04/04 by ackme
#next step is to get it to open Ad-Aware all by itself
my @windows;

use Win32::GuiTest qw(FindWindowLike GetWindowText
    SetForegroundWindow SendKeys SendMouse PushButton PushChildButton 
+MouseMoveAbsPix PushButton);
  $Win32::GuiTest::debug = 1; # Set to "1" to enable verbose mode

  my ($hwindDisplay) = FindWindowLike(0, "^Foo", "");
$hwindDisplay or die("Could not open Foo\n");
SetForegroundWindow($hwindDisplay);
MouseMoveAbsPix(140, 380);
SendMouse ("{LEFTCLICK}");

[notes]

#  for (@windows) {
 #     print "$_>\t'", GetWindowText($_), "'\n";
  #    SetForegroundWindow($_);
      #SendKeys("%fn~a{TAB}b{TAB}{BS}{DOWN}");
      #SendKeys("~");
      #coordinates = 650 x 463 y
      #so figure it out!

    #  SendMouse("LEFTCLICK");
 # }
#print grrrrr

[download]