Select Code to Download

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;

use Archive::Tar;
my ($location) = "/vol/archive5/test5.tar";
...
   my $size = $files{$file}{'size'};
   print "$size\n";
}

use Archive::Tar;
my ($location) = "/vol/archive5/test5.tar";
...
   my $size = @{ $files{$file}{'size'} };
   print "$size\n";
}