use strict ;
use warnings;
use Archive::Zip::SimpleZip;

my @dirs = ("WEB-INF");

my $zip = Archive::Zip::SimpleZip->new("test.zip");
$zip->add($_) for @dirs;
$zip->close();

##</code><code>##

$ unzip -l test.zip 
Archive:  test.zip
  Length      Date    Time    Name
---------  ---------- -----   ----
        0  02-03-2016 12:58   WEB-INF/
---------                     -------
        0                     1 file