Thank you for your help, the following is working fine:

find( sub { eval {if (-e $File::Find::name) {$zip->add($_, Name => $File::Find::name) or warn "Cannot add '$_' to zip file: $SimpleZipError\n" ;}}; warn $@ if $@ }, $data);

Alex