use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
my $Excel = Win32::OLE->new('Excel.Application','Quit') or die "Cannot open Excel\n";
my $Book = $Excel->workbooks->Open(FileName => "c:/foo.xlsx", ReadOnly => 1) or die "Cannot open Spreadsheet\n";
my $num_sheets = $Book->Sheets->Count;
for my $sheet_num ( 1 .. $num_sheets ) {
    my $Sheet = $Book->worksheets( $sheet_num );
    my $max_col = $Sheet->UsedRange->SpecialCells( xlCellTypeLastCell )->Column;
    my $max_row = $Sheet->UsedRange->SpecialCells( xlCellTypeLastCell )->Row;
    my $loc = $Sheet->UsedRange->Cells->Find({What=>"cabbage"});
}