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