You need to add error-checking to your program.

my $excel_table  = Spreadsheet::ExcelHashTable->new($file) 
   or die "Could not create excel_table object:" ;

$excel_table->excel_checker("Sheet1", "ID") and die  $excel_table->err
+or();
[download]