This script was fat-fingered in (i.e. untested), but here's the process. Archive::Zip comes with ActiveState Perl.

#!/opt/ActivePerl-5.8/bin/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;
}

die 'write error' unless $zip->writeToFileNamed( 'zipfile.zip' ) == AZ
+_OK;
[download]

ActivePerl has HTML documentation on all the modules included. In Windows, you have Start->Programs->ActivePerl ...->Documentation