Select Code to Download

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

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