Select Code to Download

use strict;

...
   $Book->SaveAs({Filename =>$excelout,
                  FileFormat => xlCurrentPlatformText});

my $sheetcnt = $Book->Worksheets->Count();

...
   ##Do something with the sheet object##
}