Select Code to Download

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

   my $zipfile = shift @ARGV;
...
   my $member = $zip->addFile( @ARGV );
   die 'write error' 
      unless $zip->writeToFileNamed( $zipfile ) == AZ_OK;