my $shell = Win32::OLE->new('Shell.Application');
my @ies = grep { $_->FullName =~ /iexplore\.exe$/ } in $shell->Windows;

foreach $ie (@ies){#

	eval{
		$ie->{document}->getElementById("PUT THE ID OF AN ELEMENT THAT IDENTIFIES THE PAGE YOU'RE LOOKING FOR HERE");
		$IEWindowYouAreLookingFor = $ie;
	};#end eval

}#END FOREACH