Windows Explorer's zip browser does not handle absolute paths (or relative paths with .., or at least those outside the current directory IIRC). However, relative paths under the current directory are fine. So, you can, for example:

use Cwd qw/getcwd abs_path/;

my $orig_path = abs_path(getcwd);
chdir '\\';
$zip->addFile('alans\dummy.txt');
$zip->addFile($orig_path . '\perlzip.pl');
$zip->writeToFileNamed($orig_path . '\MyZip.zip');
chdir $orig_dir;
[download]