Select Code to Download

my $tar = Archive::Tar->new(); 
my @filelist = ("txt.del", "txt1.del");
...
my $error =    $tar->error();
print "error is $error \n";