Select Code to Download

my $Excel =  Win32::OLE->GetActiveObject('Excel.Application');
unless ($Excel) {
...
}
my $xls = $Excel->Workbooks->Open(...);
my $sheet = $xls->Worksheets(1);

 my $lastrow = $sheet->UsedRange->Find(
        {   What            => "*",
...
            SearchOrder     => xlByRows
        }
    )->{Row};