Select Code to Download

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);