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();