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

##</code><code>##

$VAR1 = {
          'HASH(0x3148770)' => {
                                 'mtime' => 1351116756,
                                 'name' => 'SuffixTree-0.07/t/test_string.t',
                                 'size' => 742
                               },
          'HASH(0x2f9e870)' => {
                                 'mtime' => 1351116816,
                                 'name' => 'SuffixTree-0.07/suffix_tree.h',
                                 'size' => 6075
                               },
          'HASH(0x3148410)' => {
                                 'mtime' => 1351115894,
                                 'name' => 'SuffixTree-0.07/t/13-kwalitee.t',
                                 'size' => 691
                               },
...