use Path::Tiny;
path('fred')->visit(
  sub { -f || -d and $tar->add_files($_) },
  {recurse => 1}
  );