#!/opt/ActivePerl-5.6/bin/perl

# Archive::Zip is available for ActiveState perl

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

my $zip = Archive::Zip->new();
my @files = glob("*.txt");

foreach (@files) {
  my $member = $zip->addFile($_);
  die "Cannot add $_ to zip!"  unless $member;
}

##################################
### RIGHT HERE, the addTree ######
##################################

$zip->addTree("dir1");

$zip->writeToFileNamed( "zipfile.zip" );