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

my @files;

sub use_tar_dirs {
   print "=> Using TAR Compression Method\n";
   print "=> Compressing Directories\n";
   my $tar = Archive::Tar->new;
   my $dirs = $_[0];
   my @dirs = s2a($dirs);

   foreach(@dirs) {
      find(\&addfile, $_);
   }

   $tar->add_files( @files);
   $tar->write($tarname.'.tar');
}
sub s2a {
   my $s = $_[0];
   my @a = split(/,/, $s);
   return(@a);
}

sub addfile { push @files, $File::Find::name; }