#!/usr/bin/perl

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip    = Archive::Zip->new();
my $member = $zip->addDirectory('test/');
$member = $zip->addFile('test/straße.txt');
$member->desiredCompressionMethod(COMPRESSION_DEFLATED);
die 'write error' unless $zip->writeToFileNamed('someZip.zip') == AZ_OK;