I will try to make .tar or .gz file. But I have some issues like:

1. It takes the complete path

```
D:\test\jtax-issue11-16\title.xml
D:\test\jtax-issue11-16\artwork
D:\test\jtax-issue11-16\artwork\cover.png

```

Note: the above is also my folder structure.

But my requirement is:

```
jtax-issue11-16\title.xml
jtax-issue11-16\artwork
jtax-issue11-16\artwork\cover.png

```

Which means create .tar or .gz file with the current folder name only

My code is :

```
use strict;
use warnings;
use Archive::Tar;
use File::Find;
use File::Basename 'basename';
use Cwd;

my $current_path = getcwd;
my @inventory = ();
find (sub { push @inventory, $File::Find::name }, $current_path);
my $tar = Archive::Tar->new();  
$tar->add_files(@inventory);
$tar->write('a.tar');

```

If I use basename, then it produces an error. I don't understand how to use basename or how to create .tar or .gz file with the current folder name.