use strict;
use Win32::Screenshot qw(:api :default);
use Win32::IE::Mechanize;

my $ie = Win32::IE::Mechanize->new( visible => 1 );
$ie->get( "http://google.de" );

for ( ListWindows( ) ) 
{
print $_->{hwnd}.'->'.$_->{title}."\n";
if ( $_->{title} =~ /Windows Internet Explorer/ )
	{
	BringWindowToTop($_->{hwnd});
	print "TOP\n";
	}
}
		
sleep(5);

$ie->close;