sub ReadXLS { my $ar_data; print("Reading from xls..."); $benchmark = Benchmark::timeit(1, sub { $ar_data = $interface->ExcelBinary_ReadData("$Incoming_Dir/items.xls"); }); print(scalar @{$ar_data} . " records in [" . $benchmark->real . " seconds], [" . (scalar @{$ar_data} / $benchmark->real) . " records/s]\n"); return $ar_data; }