my $num_sheets= $new_book->Worksheets->Count;
print "\nNumber of excel worksheets $num_sheets\n";