use Spreadsheet::Read;
my $ss = Spreadsheet::Read->new ("pm1209625.xlsx", debug => 3);

##</code><code>##

$ perl pm1209625.pl
Opening XLSX pm1209625.xlsx using Spreadsheet::ParseXLSX-0.27
        4 sheets
        Sheet 2 'Cities' 215 x 1
        Sheet 3 'Categories' 22 x 1
        Sheet 4 'Items' 187 x 2
        Sheet 5 'VehicleTypes' 14 x 1

$ env SPREADSHEET_READ_XLSX=Spreadsheet::XLSX perl pm1209625.pl
Opening XLSX pm1209625.xlsx using Spreadsheet::XLSX-0.15
        0 sheets