$ jar cf result.zip file1.txt file2.txt ...

##</code><code>##


   my $zipfile = shift @ARGV;

   use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
   my $zip = Archive::Zip->new();
   my $member = $zip->addFile( @ARGV );
   die 'write error' 
      unless $zip->writeToFileNamed( $zipfile ) == AZ_OK;