Select Code to Download

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

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