Help for this page
my $shortname = $bfile; $shortname =~ s!.*[\\/]!!; my $member = $zip->addFile($bfile, $shortname);
my $ziptest = Archive::Zip->new($bfiledst); if (!defined($ziptest)) { ... # another error. } }