Select Code to Download

my @files = $archive->get_files;
foreach my $file (@files)
{
    my $dst = compute_new($orig, $replacement, $file);
    save_data($file, $dst);
}