Help for this page
use Path::Tiny; path('fred')->visit( sub { -f || -d and $tar->add_files($_) }, {recurse => 1} );
use Archive::Tar; my $tar = Archive::Tar::->new(); ... ); $tar->add_files(@filenamelist); $tar->write("fred.tar.gz", COMPRESS_GZIP);