It might work from the prompt but I could not open a file

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

Also using File::Find did not work out

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