local $SIG{ALRM} = sub { die("TIMED OUT") };
eval {
  alarm(10); #set our alarm                                               
                                              
      my $workbook = $parse_excel->Parse("$infile");
      
alarm(0);
};