#!/usr/bin/perl

use strict;
use Archive::Zip qw(:ERROR_CODES);

my $zipFile = Archive::Zip->new();
my $status = $zipFile->read( '/home/clueless/blabla.zip' );

my $oldimage1 = 'branch/stick/image1.jpeg';
my $newimage1 = '/home/clueless/newimage1.jpeg';
my $oldmember = $zipFile->replaceMember( $oldimage1, $newimage1 );

my $stat = $zipFile->overwrite();

##</code><code>##

Can't call method "_writeToFileHandle" without a package or object reference at /usr/local/share/perl/5.8.8/Archive/Zip/Archive.pm line 280