#! /usr/bin/perl

use strict;
use warnings;
use Archive::Tar;

my $archive = Archive::Tar->new();
$archive->add_files('../SOM/both/file1.txt','../SOM/both/file2.txt');
$archive->write('test.tar.gz',1);