use strict;
use Win32::OLE;

my $sh = Win32::OLE->new('Shell.Application');
print "Count is $sh->{Windows}->{Count}\n";
for (my $i = 0; $i < $sh->{Windows}->{Count}; $i++) {
	my $win = $sh->{Windows}->Item($i);
	print "Window's #$i document url is '$win->{Document}->{url}'\n";
}