use Spreadsheet::Read;

my $workbook = Spreadsheet::Read->new ("D:/myexcel.xlsx");
my $sheet = $workbook->sheet (1);