Windows Widow minimizer in perl again ; )

package WindowHandler ;

use strict ;
use Win32::GuiTest qw(FindWindowLike GetWindowText
SetForegroundWindow SendKeys);


sub minimizeWindow
{
my $self = shift ;
my $winTitle = shift ;
my @windows= FindWindowLike(undef, "^*$winTitle*", "");
if (not @windows) {
print " The console window could not find itself - it is staying on top \n\n" ;
}
else
{
for (@windows)
{
print "$_>\t'", GetWindowText($_), "'\n";
SetForegroundWindow($_);
SendKeys("%{SPACE}n");
}
} #eof
#minimize this window stop
} #eof minimizeWindow


sub new
{
my $self =shift;
return bless({}, $self );
}


1 ;

__END__