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