use Archive::Tar;
my @properties = "name, size, mtime";
my ($location) = "/vol/archive5/test5.tar";
my %files = Archive::Tar->list_archive($location,,[\@properties]);
print Dumper \%files;