Perhaps something like:

use strict;
use warnings;
use Win32::GuiTest;

my @explorers = Win32::GuiTest::FindWindowLike(0, 'Microsoft Internet 
+Explorer$');
print "Found ",scalar @explorers, " open IE windows\n";

for my $instance (@explorers) {
  my @edits = Win32::GuiTest::FindWindowLike($instance, "", "Edit");
  print Win32::GuiTest::WMGetText($edits[0]);
}
[download]

--
I'd like to be able to assign to an luser