Help for this page
$zip->addFile($someFile, $someName) unless $zip->memberNamed($someName +);
$zfile = $pathtofile; $zip = Archive::Zip->new(); ... my $zipped = $zip->addFile( $File::Find::name ); }