Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
$zip->read('tst.zip') == AZ_OK or die "read error\n";
$zip->addFile('tst2/s2.tst');
$zip->overwrite()     == AZ_OK or die "write error\n";

#!/usr/bin/perl
use warnings;
use strict;
...
$m1->fileName('foo/tst2/s2.tst');           # Rename the file, adding 
+a subdir

$zip->overwrite()     == AZ_OK or die "Write error\n";