fred
fred/asd
fred/derf
fred/qwe
fred/zxc
fred/derf/fgh
fred/derf/rty
fred/derf/fgh/vbn

##</code><code>##

$ tar zcvf fred.tar.gz fred

##</code><code>##

use Archive::Tar;
my $tar = Archive::Tar::->new();
$tar->add_files(glob "fred fred/* fred/*/* fred/*/*/*");
$tar->write("fred.tar.gz", COMPRESS_GZIP);