Select Code to Download

$zip->addFile($someFile, $someName) unless $zip->memberNamed($someName
+);

$zfile = $pathtofile;
$zip = Archive::Zip->new();
...
   my $zipped = $zip->addFile( $File::Find::name );
}