my $oldimage1 = 'branch/stick/image1.jpeg'; my $newimage1 = Archive::Zip::Member->newFromFile( 'newimage1.jpeg' ); my $oldmember = $zipFile->removeMember( $oldimage1 ); my $newmember = $zipFile->addFile( $newimage1, "branch/stick/$newimage1");