Hello ,

actually , as i can see you posted the answer yourself

you have to check it yourself

# Add a file if it's not exsits in the zip Archive
$zip->addFile($someFile, $someName) unless $zip->memberNamed($someName
+);
[download]

and i think this is wrong in your code

if ($File::Find::name =~ m/\.txt$/i){
   my $zipped = $zip->addFile( $File::Find::name );
}
[download]

you are declaring "$zipped" inside your (if statment) so it will not be used outside it , if you do not really require it ... just change it as stated above ... addFile unless it's exsits in the Archive

HTH