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 "InnerHTML '$win->{Document}->{body}->{innerHTML}'\n";
	print "OuterHTML '$win->{Document}->{body}->{outerHTML}'\n";
	print "InnerText '$win->{Document}->{body}->{InnerText}'\n";
	print "OuterText '$win->{Document}->{body}->{outerText}'\n";
}

##</code><code>##

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);
	my @list = Win32::OLE::Enum->All($win->Document->all);
	print "My Enum ";
	print "@list";

}