#!/opt/perl/bin/perl
use warnings;
use strict;
use diagnostics;
use Archive::Zip qw( :ERROR_CODES :CONSTANTS );

MAIN: {
    my $zd = 'foobar';

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

    my $d = $zip->addDirectory( $zd );

    my $f = $zip->addString( 'this is a test', "$zd/foo.txt" );

    $f->desiredCompressionMethod( COMPRESSION_DEFLATED );

    $f = $zip->addString( 'of the emergency broadcast system', "$zd/bar.txt" );

    $f->desiredCompressionMethod( COMPRESSION_DEFLATED );

    unless ( $zip->writeToFileNamed("$zd.zip") == AZ_OK ) {
        die 'write error';
    }

    exit 0;
}