Select Code to Download

use warnings;
use strict;
...
my $location = "xxx.tar";
my @files = Archive::Tar->list_archive($location, 0, \@properties);
print Dumper(\@files);