(Perl) Change a Filename before Unzipping

How to open a zip and modify the filename of one or more files within the zip before unzipping.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$zip = chilkat::CkZip->new();

$success = $zip->OpenZip("test.zip");
if ($success != 1) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# entry is a ZipEntry
$entry = $zip->GetEntryByName("hamlet.xml");
# Assume entry is non-null.  If GetEntryByName failed
# to find the entry, it returns a null reference.
$entry->put_FileName("hamlet2.xml");

# entry is a ZipEntry
$entry = $zip->GetEntryByName("helloWorld.pl");
$entry->put_FileName("hw.pl");

# Now unzip to the "test" subdirectory, under our current
# working directory:
$numFilesUnzipped = $zip->Unzip("test");
if ($numFilesUnzipped < 0) {
    print $zip->lastErrorText() . "\r\n";
    exit;
}

# The filenames within the .zip are unchanged, but it unzipped
# test/hw.pl and test/hamlet2.xm