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

my $az_foo = Archive::Zip->new('foo.jar');

unless ($az_foo->writeToFileNamed('bar.jar') == AZ_OK ) {
 die 'write error';
}

my $az_bar = Archive::Zip->new();

unless ( $az_bar->read('bar.jar') == AZ_OK ) {
 die 'bad bar bad!'
}