Select Code to Download

use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

foreach my $sheet (keys %$storage_book){
  my $dest_sheet = $dest_book->addworksheet($sheet);
...
} # foreach sheet

$dest_book->close();