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;