Select Code to Download

#!/usr/bin/perl -w

use strict;
...

$zip->writeToFileNamed("zipped_$archiveCount.zip") == AZ_OK or die $!;