#!/usr/bin/perl -w
use strict;
use Archive::Tar;

my @here = Archive::Tar->list_archive("filename.tar.gz");
foreach (@here) {
    print "$_\n";
}
print "Took $time_taken seconds to process\n";