Combine with File::Find:

use strict;
use warnings;
use autodie;

use Archive::Tar;
use File::Find;

my @fl;
find (sub { -d $_ or push @fl, $File::Find::name }, "Bundle::Finaltest
+");
Archive::Tar->create_archive ("Bundle-FinalTest.tar.gz", COMPRESS_GZIP
+, @fl);
[download]