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);
    my $dir = $_[2];
    my $tarname = $_[1];
    unlink($tarname);
    $tar->add_files( './'.$dir.'/'.@dirs );
    $tar->write($tarname.'.tar');
}
sub s2a {
    my $s = $_[0];
    my @a = split(/,/, $s);
    return(@a);
}