Select Code to Download

use Cwd qw/getcwd abs_path/;

...
$zip->addFile($orig_path . '\perlzip.pl');
$zip->writeToFileNamed($orig_path . '\MyZip.zip');
chdir $orig_dir;