#!/usr/bin/perl -w
use strict;
use Archive::Tar;
use File::Find;

my $tar = Archive::Tar->new();
my $dir = "somedir"; #some dir with recursive dirs and files 

find (\&found,$dir);

sub found{
  $tar->add_files($File::Find::name);
}

$tar->write('Tmytest2.tgz',9);
exit;