$file="stra.e\.txt";
$member = $zip->addFile("$file");


##</code><code>##

find(\&wanted, "c:/test");
    sub wanted {
    $file=$File::Find::name;
 if (/stra.e\.txt/){
 $file=$_;
    }
 }