#!/bin/perl -w

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

#almost verbatim from the Archive::Zip docs:
my $zip = Archive::Zip->new();
my $member = $zip->addFile('t.out');
die 'Error writing file' if $zip->writeToFileNamed('foo.zip') != AZ_OK;