#!/usr/bin/perl -slw

use strict;
use Archive::Tar;
use Data::Dumper::Concise;

$Archive::Tar::FOLLOW_SYMLINK = 1; 
print $Archive::Tar::VERSION;

my $t = Archive::Tar->new; 
$t->add_files('/root/Desktop/bar'); 
$t->write( 'baz.tgz', COMPRESS_GZIP );
$t->error(1); 
print "Done";