use strict;
use Archive::Tar ;
my $tar = Archive::Tar->new;
my ($tarFile) = "test.tar";
$tar->add_data( "test/test.txt", "Hello World 1");
$tar->add_data( "qa/test1.txt", "Hello World 2");
$tar->write( "$tarFile.tgz", 8);
$tar->clear;
undef $tar;

##</code><code>##

$tar->add_data( "test/test.txt", "Hello World 1", {prefix => 'test'});