#!/bin/perl -w
use strict;
use Archive::Zip qw(:ERROR_CODES :CONSTANTS); #$VERSION = '1.30';

die "usage: $0 zipfile.zip file [...]\n"
	if (scalar(@ARGV) < 2);

my $zipName = shift(@ARGV);
my $zip = Archive::Zip->new();

foreach my $memberName (map { glob } @ARGV){
	my $member = $zip->addFile( $memberName )
		or warn "Can't add file $memberName\n";
	#$member->desiredCompressionMethod( COMPRESSION_DEFLATED );
	$member->desiredCompressionLevel( 9 );
}

my $status = $zip->writeToFileNamed($zipName);

my $zipread = Archive::Zip->new();
$zipread->read( $zipName );

foreach my $member ($zipread->members()){
	print $member->fileName()."\t",
		$member->compressionMethod()."\t",
		$member->desiredCompressionMethod()."\n";
}

exit $status;