#!/usr/bin/perl 

use Spreadsheet::ParseXLSX;

`echo "" >/tmp/invalid.xlsx`;

eval { 
	Spreadsheet::ParseXLSX->new->parse("/tmp/invalid.xlsx") 
};