Архивирование на perl в windows

[Mastak777]

Проблема такая.
Архивирую некую папку на компе (в Windows).
Perl

#!/usr/bin/perl
use Archive::Tar;
my $gz='z:/home/test.my/httpdocs/backup/test.tar.gz';
my $ROOT='z:/home/test.my/httpdocs';
my $dir=$ROOT."/ap";
my $tar=Archive::Tar->new();
opendir D,$dir;
@File=readdir D;
my $ok=$tar->add_files(@File);
my $ok1=$tar->write($gz,9);
exit;

Все в принципе работает. Но только в Архиве файлы располагаются относительно диска z:
z:/home/test.my/httpdocs/ap/file1
z:/home/test.my/httpdocs/ap/file2 ...
а мне нужно, чтобы они были относительно ROOT.
/ap/file1
/ap/file2 ...
Можно переименовать всё
$tar->rename( $file, $new )
но на эту операцию уходит очень много времени (файлов порядка 100 тыс).
Для Линукса я решение знаю, через встроенный модуль gzip.
Подскажите, как можно решить эту проблему с использованием Archive::Tar.