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