sub use_tar_dirs {
    print "=> Using TAR Compression Method\n";
    print "=> Compressing Directories\n";
    my $tar = Archive::Tar->new;
    my $dir = $_[0];
    my $tarname = $_[1];
    @fn = list_dir($dir);
    chdir "./".$dir;
    #foreach(@fn){print $_."\n";}
    $tar->add_files( @fn );
    $tar->write($tarname.'.tar');
}

sub list_dir {
    my $os = get_os_version();
    my $dir = $_[0];
    my @fn;
    if($os eq "win"){
        chdir ".\\".$dir;
        chomp(@fn = `dir /B`);
    }
    else {
        chdir "./".$dir;
        @fn = `ls -1`;
    }
    return(@fn);
}
sub s2a {
  my $s = $_[0];
  my @a = split(/,/, $s);
  return(@a);
}