#!/usr/bin/env perl

use strict;
use warnings;
use Archive::Tar;
use feature qw(say);
use Path::Tiny;

my @files = qw (foo.txt bar.txt);

my @copies = map { path($_)->copy( path($_)->digest . "_$_" ) } @files;

my $archive = q(kgb.tgz);

Archive::Tar->create_archive( $archive, COMPRESS_GZIP, @copies );

say for Archive::Tar->list_archive($archive);

unlink for @copies;

say q(--);

say qx (tar tf $archive);

__END__