use strict;
use warnings;

use Spreadsheet::Read;

my $excel = ReadData ("xyz.xlsx");
defined $excel or die;

print "Read with ", $excel->[0]{parser}, "\n";