Select Code to Download

  my $zip = Archive::Zip->new()
    or croak "Failed to create a new archive";
...
    croak "Failed to write to archive: $!";
  }
  print "Added $renamed_file to $zip_filename\n";