Take a look at Archive::Zip module.
In its simplest form:

my $zip = Archive::Zip->new();       #create object
$zip->addFile( $_ ) for glob '*.txt';#addition of *.txt files
$zip->writeToFileNamed( 'TXT.zip' )  #archive & compress
[download]