use OLE;

my $count;
my $xl = CreateObject OLE 'Excel.Application' || die $!;
my $workbook = $xl->Workbooks->Open("C:\\test.xls");
my $worksheet = $workbook->Worksheets(1);
my $array = $worksheet->Range("A1:B10")->{'Value'};

for (@$array) { print ++$count, ":", join(",", @$_), "\n" }

$xl->ActiveWorkbook->Close(0);
$xl->Quit();