#!c:\\perl\\bin
use LWP::Debug qw(+);
use strict;
use Win32::IEAutomation;
use Win32::IEAutomation::Table; 
use Win32::IEAutomation::Element;
my $ie = Win32::IEAutomation->new();
$ie->gotoURL('c:\perl\bin\testtable.htm/'); 
my @atbl = $ie->getAllTables;
for my $a (@atbl){
my @allRows = $a->rows;
for my $in(@allRows){
my @allCell = $in->cells;
for my $y (@allCell){
print $y->cellText;
}
}
};