Select Code to Download

#! perl
use strict;
...
                            zipName => $dirname . $filename } );
$zip->writeToFileNamed('test.zip') == AZ_OK
    or die "Write error: $!";