Как переименовать все файлы в архиве

#!perl
 
use strict;
use warnings;
use Archive::Tar;
 
# директория, в которой лежат исходные фотографии
my $directory = './test/';
# создаём объект архива в оперативной памяти
my $tar = Archive::Tar->new;
 
# задаю номера фотографий, которые хочу заархивировать
foreach my $x (539..544) {
    # путь и имя файла текущей фотографии
    my $filepath = $directory . "DCP00" . $x . ".jpg";
    # размер файла текущей фотографии
    my $filelength = -s($filepath);
    # открываю файл фотографии на чтение
    open(my $in, "<", $filepath) || die("Error open $filepath\n");
    # объявляю, что файловый дескриптор ссылается на двоичные данные
    binmode($in);
    my $data_from_file;
    # читаю всё содержимое фотографии в переменную $data_from_file
        read($in,$data_from_file,$filelength);
    # формирую желаемое имя файла
    $filepath = "DCP00" . $x . ".jpg";
    # добавляю фотографию из переменной в архив с сформированным именем
    $tar->add_data($filepath, $data_from_file);
    # закрываю текущую фотографию
    close($in);
}
 
print "\nThe archive does not contain paths\n";
# распаковываю в текущую директорию все фотки
# если надо в другую директорию, смотрим параметр
# $tar->extract_file( $file, [$extract_path] )
# по адресу [url]http://search.cpan.org/~bingos/Archive-Tar-1.96/lib/Archive/Tar.pm[/url]
foreach my $x ($tar->list_files()) {
    print "$x\n";
    $tar->extract_file($x);
}
# любуемся фотографиями из текущей директории для контроля,
# попутно ностальгируя