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!'
}

##</code><code>##

java.util.zip.ZipException: only DEFLATED entries can have EXT descriptor
	at java.util.zip.ZipInputStream.readLOC(ZipInputStream.java:250)
	at java.util.zip.ZipInputStream.getNextEntry(ZipInputStream.java:73)
	at sun.tools.jar.Main.list(Main.java:735)
	at sun.tools.jar.Main.run(Main.java:191)
	at sun.tools.jar.Main.main(Main.java:903)